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FOREWORD 


This  report  documents  a  study  of  commodity  bid  offers  made  to  the  Defense  National  Stockpile 
Center  (DNSC).  The  purpose  of  the  study  was  to  provide  DNSC  with  better  information  about 
potential  changes  in  market  commodity  prices.  This  report  provides  the  project  findings  of  the 
new  PC  based  price  forecasting  model,  “market  basket”  decision  support  package,  and  “optimal” 
price  methodology. 
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with  this  project.  Additionally,  we  would  like  to  thank  Mr.  Tom  Rasmussen,  Mr.  Frank 
Ringquist,  and  Mr.  Peter  Mory  for  their  insights  into  the  commodity  markets  and  guidance 
during  the  course  of  this  project.  This  project  would  not  have  been  possible  without  their 
assistance. 


OHN  E.  FIRTH 
Colonel,  USA 

Chief,  DLA  Operations  Research  Office 
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INSIGHT  THROUGH  ANALYSIS 


EXECUTIVE  SUMMARY 


The  purpose  of  this  study  was  to  provide  additional  information  to  the  management  of  the 
Defense  National  Stockpile  Center  (DNSC)  about  potential  changes  in  commodity  market  prices. 
This  report  addresses  the  findings  of  a  commodity  market  basket  analysis,  a  “optimal”  price 
methodology,  and  a  PC  based  decision  support  system. 

The  market  basket  analysis  of  the  commodities  managed  by  the  DNSC  revealed  that 
mathematical  correlation  exists  between  many  of  the  commodities.  However,  the  results  of  the 
study  were  inconclusive.  This  is  because  of  the  fact  that  correlation  does  not  necessarily  imply 
causality.  A  large  positive  or  negative  correlation  coefficient  does  not  mean  that  a  change  in 
commodity  A  automatically  causes  a  change  in  commodity  B.  The  only  conclusion  that  may  be 
inferred  from  the  correlation  coefficient  is  that  a  linear  trend  may  exist  between  commodity  A 
and  commodity  B. 

The  “optimal”  price  analysis  focused  on  Aluminum  Oxide  Fused  Crude.  There  was  insufficient 
data  to  calculate  the  necessary  production  function  for  this  technique  to  work.  The  available  data 
cover  a  broad  time  span  and  does  not  offer  many  data  points. 

While  it  is  disappointing  that  an  “optimal  pricing”  strategy  or  a  market  basket  could  not  be 
successfully  developed,  this  does  not  necessarily  symbolize  a  failure.  It  can  be  viewed  instead  as 
an  illustration  of  the  difficulty  to  provide  reliable  information  of  this  type.  This  analysis  may  be 
feasible  in  the  future  if  more  data  becomes  available. 

Lastly,  the  project  team  was  successful  in  designing  an  automated  PC  based  price  forecasting 
model  designed  for  use  with  Microsoft  Excel  ®.  It  is  intended  to  complement  the  existing 
DNSC-R  staff  analysis  of  commodity  markets.  The  program  evaluates  three  different  forecasts. 
Naive  forecast.  Double  exponential  smoothing  using  Holt’s  method,  and  a  Variable  index 
dynamie  average.  It  then  chooses  the  forecast  with  the  lowest  overall  error.  Additionally,  the 
program  calculates  a  market  momentum  over  a  user  specified  number  of  periods  and  then  graphs 
the  output. 

There  exists  significant  potential  benefits  in  applying  this  automated  bid  evaluation  system  to 
leverage  increased  revenue.  Previous  analysis  of  Lead  sales  for  FY  97  demonstrated  that  this 
technique  could  have  resulted  in  a  net  revenue  increase  of  $1 . 1  million  dollars  to  the  government. 
This  represents  a  potential  15.8%  increase  in  sales  revenue  for  the  period. 
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SECTION  1 

STUDY  DESCRIPTION 


1.1  PROBLEM  STATEMENT 


Develop  a  decision  support  system  that  will  assist  the  Defense  National  Stockpile  Center 
(DNSC)  in  assessing  the  suitability  of  bids  on  the  commodities  offered  for  public  sale. 

1.2  BACKGROUND 

On  November  19,  1996  at  a  meeting  between  DNSC  and  DLA  Operations  Research 
Office  (DORO)  management,  the  topic  of  decision  support  methodologies  to  assess  the 
bids  received  for  DNSC  commodities  was  discussed.  The  DNSC  management  described 
the  current  methodology  of  assessing  bids  and  wanted  a  more  automated  approach  for  bid 
evaluation  that  included  alternate  forecasting  methodologies.  The  requirement  is  for  a 
decision  support  package  that  will  complement  the  research  of  the  DNSC  Marketing 
office  and  assist  the  DNSC  decision  makers  in  deciding  which  bids  to  award. 

1.3  OBJECTIVES 

1.3.1  Develop  a  PC  based  price  forecasting  model  which  will  provide  an 
indication  of  what  DNSC  commodity  prices  might  be  in  future  international 
commodity  markets. 

1.3.2  Research  the  potential  for  developing  a  “market  basket”  decision  support 
package  which  will  include  all  of  the  commodities  sold  by  the  DNSC. 

1.3.3  Explore  potential  methodologies  for  estimating  the  “optimal”  price  for 
various  commodities. 

1.4  SCOPE 


Overall  project  functional  guidance  for  this  effort  was  provided  by  the  DNSC  Office  of 
Planning  &  Market  Research  (DNSC-R),  HQ  DLA.  All  operational  analysis  support  was 
accomplished  by  the  technical  support  staff  assigned  by  DORO  in  Richmond,  Virginia. 
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1.5 


ASSUMPTIONS 


There  are  several  underlying  assumptions  associated  with  this  study.  The  overall 
assumptions  were:  that  any  computer  product  that  was  developed  must  be  uncomplicated 
for  the  user,  based  upon  solid  analysis  and,  provide  useful  information  to  the  user. 
Additionally,  it  was  assumed  that  the  DNSC-R  staff  has  limited  time  and  resources  for 
collecting  additional  data  and  prefers  to  employ  data  that  is  currently  available.  Specific 
assumptions  are  addressed  where  appropriate. 

1.6  LITERATURE  OVERVIEW 

After  conducting  a  review  of  the  forecasting  literature  it  was  determined  that  simple 
forecasting  techniques  can  often  be  as  effective  as  complex  ones  (Winston,  1994), 
(Nahmias,  1993),  (Mahmoud,  1984),  (Makridakis  et  al.,  1982).  It  was  not  the  intent  of 
this  study  to  evaluate  every  available  forecasting  technique,  but  rather  to  focus  on  several 
basic  techniques  which  could  yield  better  information  about  commodity  prices.  Thus, 
research  on  forecasting  techniques  for  use  in  this  study  has  focused  on  both  traditional 
and  non-traditional  forecasting  techniques  that  met  this  criteria. 


2 


SECTION  2 
STUDY  APPROACH 


2.1  ANALYTICAL  TECHNIQUE 

This  project  is  a  follow  up  effort  to  the  consultation  work  DORO  completed  in  February 
1997.  The  earlier  consultation  focused  on  accurately  forecasting  the  market  direction  for 
lead  prices.  This  project  addressed  forecasting  the  expected  market  direction  for  the  other 
commodities  that  DNSC  manages. 

An  assumption  used  in  this  study  is  that  some  forecasting  methods  are  better  than  others, 
depending  upon  the  characteristics  of  the  time  series  used  for  the  evaluation  (Armstrong, 
1984).  The  forecasting  techniques  used  in  this  project  are  considered  to  be  time-series 
models.  This  means  that  each  forecast  is  based  upon  past  data. 

It  is  important  to  review  some  fundamental  characteristics  inherent  to  predicting  future 
values  based  on  past  observations.  Forecasting  problems  are  generally  classified  into 
three  time  horizons:  short  term,  intermediate  term,  and  long  term.  Short  term  business 
forecasts  are  typically  measured  in  days  or  weeks.  Examples  of  short  term  forecasts 
could  be  predicting  daily  sales  or  the  number  of  employees  required  for  shift  scheduling. 
Intermediate  term  business  forecasts  are  measured  in  weeks  or  months  and  represent  the 
typical  planning  horizon  for  DNSC  commodity  forecasting.  Long  term  business  forecasts 
are  usually  measured  in  terms  of  years  and  often  deal  with  issues  such  as  long  term  sales 
patterns  or  capacity  requirements. 

While  it  is  generally  acknowledged  by  management  and  academia  alike  that  forecasts  are 
usually  wrong,  it  is  a  fact  that  managers  frequently  disregard.  The  reasons  for  forecast 
inaccuracy  are  as  varied  as  the  number  of  forecasting  techniques.  This  project  has 
attempted  to  minimize  forecast  error  by  comparing  multiple  forecasting  techniques  and 
their  associated  error.  It  is  assumed  that  any  viable  forecast  must  have  a  mean  square 
error  (MSE)  or  mean  absolute  deviation  (MAD)  that  is  less  than  the  naive  forecast  for  the 
period.  A  naive  forecast  is  one  in  which  the  next  period's  demand  is  the  same  as  the 
current  period.  The  naive  forecast  is  as  follows: 

Ft+i  =  A, 

where:  A,  =  actual  demand  at  time  t 
F,  =  forecast  for  time  t 
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In  plain  language  Naive  forecast  looks  like  this: 

Forecast  price  =  Last  period  price 

MAD  can  be  described  as  the  “absolute”  sum  of  the  total  error  divided  by  the  total 
number  of  periods.  The  term  absolute  refers  to  changing  all  of  the  errors  between  the 
forecast  and  the  actual  prices  into  positive  values.  MSB  is  similar  to  MAD  except  that  all 
of  the  error  values  are  squared  instead  of  changed  into  positive  values.  A  characteristic 
desirable  in  all  forecasts  is  that  they  should  be  unbiased,  meaning  that  the  error  for  each 
forecast  should  fluctuate  randomly  around  zero.  This  can  be  measured  using  MAD  and 
MSB  with  the  goal  of  zero  for  both  values.  MAD  and  MSB  are  defined  as: 

n 

E  ABS(A,-F,) 
t=l 

MAD  = - 

n 


n 

E  (A,-F.)^ 
t=l 

MSB=  - 

n 

where:  A,  =  actual  demand  at  time  t 
F,  =  forecast  for  time  t 
n  =  number  of  periods 

The  forecasts  used  in  this  study  were  developed  in  the  previous  consultation.  The 
techniques  used  for  this  study  were:  Naive  forecast,  double  exponential  smoothing 
(DBS)  using  Holt’s  method,  variable  length  dynamic  index  (VIDYA),  and  Chande 
momentum  oscillator  (CMO). 

Double  exponential  smoothing  using  Holt’s  method,  is  a  technique  that  allows  for  the 
simultaneous  smoothing  of  the  data  series  and  the  trend.  This  method  is  designed  to  track 
time  series  data  with  a  linear  trend.  DBS  requires  the  specification  of  two  smoothing 
factors,(a  ,P)  and  uses  two  equations.  One  equation  is  used  to  estimate  the  price  and  one 
to  estimate  the  trend.  A  unique  feature  of  this  method  is  that  it  estimates  a  new  slope  for 
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the  trend  in  the  data  with  every  new  forecast.  This  method  can  be  used  for  both  single 
period  and  multiple  period  forecasts.  DES  is  defined  as: 


S,  -  aD,  +(l-a)(S(.,+G,.,), 
G,  =  P(S.-S,,)  +  (1-P)G.., 


F.  =  S,  +  G. 

where:  S,  =  value  of  the  intercept  at  time  t 
D,  =  most  current  price  at  time  t 
Gt  =  value  of  the  slope  at  time  t 
F,  =  forecast  for  time  t 
a  =  smoothing  constant  for  the  data  series 
P  =  smoothing  constant  for  the  trend 
a  >  p  =  for  stable  forecasts 
In  plain  language  terms  DSE  looks  like  this: 

New  Price  =  Smoothing  Factor^  *  (Current  Price)  +  (1-  Smoothing  Factor  a)  *  (Last  Price  +  Last  Slope), 
New  Slope  =  Smoothing  Factorg  *  (New  Price  -  Last  Price)  +  (1-  Smoothing  Factorg)  *  (Last  Slope) 

New  Forecast  =  New  Price  +  New  Slope 

The  smoothing  factor,  (a  ,  P),  must  be  greater  than  or  equal  to  zero  or  less  than  or  equal 
to  one  for  this  model  to  work.  The  smoothing  constant  determines  the  relative  weight 
placed  on  the  current  price  in  determining  what  the  forecasted  value  must  be.  The 
smoothing  constant  can  either  be  set  at  an  arbitrary  value  chosen  by  the  user  or 
sometimes  an  optimal  value  can  be  determined.  However,  as  the  smoothing  factor  value 
increases  the  relative  weight  on  each  current  observation  increases  thus  producing  a 
forecast  which  reacts  quickly  to  changes  but  has  greater  variation  from  period  to  period. 

In  this  study,  regression  analysis  is  used  to  estimate  the  initial  values  for  the  slope  and 
intercept  of  the  DES  equations.  Regression  analysis  is  a  method  that  fits  a  straight  line  to 
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a  set  of  data.  This  technique  enables  the  user  to  fit  a  line  to  the  data  that  will  minimize 
the  distance  of  the  initial  data  points  from  the  line. 

The  third  forecasting  technique  used  in  this  study  is  called  variable  index  dynamic 
average  (VIDYA).  This  technique  is  a  dynamic  exponential  moving  average  that  adjusts 
its  effective  length  using  market  variables  and  is  responsive  to  market  volatility.  VIDYA 
can  be  indexed  to  the  standard  deviation  of  closing  prices,  a  momentum  oscillator,  and  to 
the  coefficient  of  determination,  r^.  The  responsiveness  and  dynamic  range  of  VIDYA 
will  change  based  on  the  indexing  technique  used  (Chande  &  KroII,  1994).  In  this  study, 
the  standard  deviation  of  closing  prices  was  determined  to  be  the  most  responsive.  To 
use  VIDYA,  a  volatility  index  must  first  be  developed.  The  volatility  index  is  derived 
from  current  volatility  compared  to  historical  volatility.  This  is  represented  as: 

k  =  a(x-periods)  /  a(reference) 

where:  k  =  volatility  index 

a(x-periods)  =  standard  deviation  of  prices  over  x-periods 

a(reference)  =  the  historical  value  of  standard  deviation  over  x-periods 

In  plain  language  the  volatility  index  is: 

Index  k  =  standard  deviation(x-periods)  /  standard  deviation(reference) 

The  number  of  periods  is  chosen  by  the  user.  For  example,  you  could  use  a  12  month 
moving  average  of  standard  deviation  for  the  reference  value.  This  would  then  become 
the  historical  reference  value  of  standard  deviation. 

With  the  volatility  index  solved  the  VIDYA  equation  is  expressed  as: 

VIDYA  =  a  *  k  *  A,  +  (1-  a  *  k)  *  A,., 

where:  A,  =  actual  demand  at  time  t 

k  =  volatility  index 

a  =  smoothing  constant  for  the  data  series 
In  plain  language  VIDYA  looks  like  this: 
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VIDYA  =  alpha  *  k  *  Today’s  closing  price  +  (1-alpha  *  k)  *  Yesterday’s  closing  price 

The  utility  of  this  equation  in  forecasting  prices  is  found  in  the  addition  of  the  indexing 
variable.  This  is  substantially  different  than  traditional  exponential  moving  averages 
which  require  the  index  to  be  constant  (Chande  &  Kroll,  1994). 

To  augment  the  forecasting  strategies  we  incorporated  methodologies  designed  to 
estimate  market  direction  and  momentum.  The  Chande  momentum  oscillator  is  a  pure 
momentum  oscillator  that  plots  market  momentum  on  a  bounded  scale  of  -100  to  +100. 
The  market  momentum  is  measured  as  the  difference  between  the  closing  prices  of 
different  periods.  CMO  is  a  variant  of  the  Relative  Strength  Index  (RSI)  but  differs  from 
it  in  the  following  ways.  CMO  is  a  direct  measurement  of  market  momentum  because  it 
uses  data  for  both  up  and  down  periods  in  its  numerator.  RSI  calculations  use  only  the 
data  for  up-periods  in  its  market  estimates.  RSI  has  a  built  in  smoothing  feature  which 
can  effect  the  outcome  of  calculations.  CMO  works  with  unsmoothed  data.  Once 
calculated,  the  values  can  be  smoothed  just  like  any  other  market  indicator.  CMO 
calculations  are  bound  by  a  -100  to  +100  scale  which  enables  the  user  to  quickly  assess 
the  magnitude  of  the  market  shift.  RSI  varies  from  0  to  +100,  so  the  user  must  use  the  50 
level  for  assessing  the  level  of  market  momentum  (Chande  &  Kroll,  1994). 

The  CMO  is  calculated  using  the  sum  of  the  up-period  momentum  over  x  periods 
represented  as  Sy  and  S^  is  the  sum  of  the  down-period  momentum  over  x  periods.  The 
CMO  numerator  is  the  difference  between  the  sum  of  the  up-period  momentum  and  the 
sum  of  the  down-period  momentum  multiplied  by  100.  The  denominator  is  the  absolute 
sum  of  the  up-period  momentum  added  to  the  sum  of  the  down-period  momentum 
(Chande  &  Kroll,  1994).  CMO  can  be  represented  as: 

CMO  =  100  *  (Su-Sd)/  |(Eu  +  Zd)| 

In  plain  language  terms  CMO  looks  like  this: 

CMO  =  100  *  (Sum  up  periods  -  Sum  down  periods)  /  ABS  (Sum  up  periods  +  Sum  down  periods) 

The  usefulness  of  this  indicator  is  that  it  can  be  easily  plotted  on  a  bounded  scale  and 
provides  a  consistent  measure  for  comparing  market  shifts.  Another  feature  of  CMO  is 
that  it  provides  both  negative  and  positive  values,  RSI  only  has  positive  values.  This 
feature  offers  a  clearer  indication  of  both  the  direction  and  strength  of  the  market 
momentum. 
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SECTION  3 
RESULTS 

3.1  EXCEL® ADD  IN 

An  add  in  for  Microsoft  Excel  ®  was  developed  to  assist  the  DNSC-R  staff  with  their 
analysis  of  commodity  markets  and  to  automate  the  forecasting  process  developed  in  the 
previous  consultation.  The  add  in  is  designed  to  evaluate  a  range  of  prices  chosen  by  the 
user  and  then  graph  the  results.  Once  the  user  calls  the  program  from  the  tools  menu, 
he/she  will  be  prompted  to  highlight  the  range  of  commodity  prices.  The  user  will  then 
choose  the  periods  for  the  CMO  and  how  many  months  of  output  to  be  graphed.  With 
these  selections  made,  the  user  will  then  click  on  “Calculate”  and  the  program  will 
evaluate  the  data.  The  program  evaluates  Naive,  DES,  and  VIDYA  forecasts  for  the 
period  chosen.  It  then  chooses  the  forecast  with  the  lowest  error  and  graphs  the  results. 

If  the  Naive  forecast  has  the  lowest  error  then  the  program  alerts  the  user  that  it  can  not 
make  a  reliable  forecast. 

It  is  important  to  note  the  effect  of  the  momentum  oscillator  on  the  evaluation  process. 
The  user  can  choose  a  value  between  3  to  1 8  periods.  The  greater  the  number  of  periods 
chosen  the  more  stable  the  CMO  estimate  will  be.  Chande,  the  technique  inventor, 
recommends  12  periods  in  his  review  of  the  technique.  Consequently,  12  periods  were 
used  during  the  developmental  phase  of  the  study  and  for  the  previous  consultation.  This 
seemed  to  produce  stable  forecasts  with  the  CMO  generally  following  the  movement  of 
the  actual  and  forecasted  prices  (see  section  3.1.4  CMO  Comparison  analysis).  However, 
Chande  does  specify  that  the  choice  is  ultimately  left  to  the  user  to  determine  the  “right” 
number  of  periods  for  use.  The  DNSC-R  add  in  is  designed  to  incorporate  the  CMO 
chosen  by  the  user  into  all  calculations.  Thus,  if  the  user  chooses  3  periods,  the  program 
will  evaluate  3  periods  worth  of  standard  deviation,  3  periods  of  up/down  momentum  etc. 

3.2  MARKET  BASKET  ANALYSIS 


The  commodities  used  for  the  market  basket  analysis  and  their  cash  sale  values  were 
provided  by  DNSC-R  staff  The  data  covered  sales  for  the  period  January  1995  through 
June  1997.  With  this  information  we  determined  an  average  per  unit  price  for  each 
commodity  by  dividing  the  sale  value  by  the  quantity  sold.  This  data  was  used  as  the 
input  for  a  macro  written  to  determine  potential  market  baskets  candidates.  The  criteria 
for  inclusion  in  a  market  basket  was  to  employ  any  pair  set  whose  correlation  coefficient 
is  greater  than  or  equal  to  .5  or  less  than  or  equal  to  -.5.  We  determined  that  a  positive  or 
negative  correlation  of  .5  was  an  indication  of  commodities  potentially  moving  together. 
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A  high  positive  coefficient  between  two  commodities  indicates  their  prices  tend  to  rise 
and  fall  at  the  same  time,  conversely,  a  highly  negative  coefficient  indicates  that  their 
prices  tend  to  rise  and  fall  in  opposite  directions.  However,  correlation  does  not 
necessarily  imply  causality.  A  large  positive  or  negative  correlation  coefficient  does  not 
mean  that  a  change  in  commodity  A  causes  a  change  in  commodity  B.  The  only 
conclusion  that  may  be  inferred  from  the  correlation  coefficient  is  that  a  linear  trend  may 
exist  between  commodity  A  and  commodity  B.  The  correlation  output  matrix  is  at 
Appendix  A. 


3.3  OPTIMAL  PRICING  ANALYSIS 


The  optimal  pricing  analysis  focused  on  Aluminum  Oxide  Fused  Crude.  To  estimate  a 
demand  function  for  Aluminum  Oxide  Fused  Crude,  regression  analysis  was  performed 
using  the  quantity  sold  and  cash  sale  value  (Ragsdale,  1995).  The  acquisition  cost  (a 
cumulative  number)  was  estimated  using  30  months  worth  of  data  provided  by  DNSC. 
The  information  necessary  to  estimate  a  production  function  (e.g.,  storage  costs,  labor 
costs,  disposal  costs)  were  unavailable.  This  made  the  estimation  of  an  “optimal  price” 
impossible. 

The  weakest  link  in  both  the  “market  basket”  and  the  “optimal  price”  strategies  is  that  the 
historical  data  that  was  provided  spanned  broad  time  intervals  and  does  not  offer  many 
data  points  for  use  in  forecasting.  Consequently,  the  actual  costs  of  the  commodities  at 
any  point  in  time  is  difficult  to  estimate  given  the  infrequent  market  activity  for  these 
commodities. 


3.4  CMO  COMPARISON  ANALYSIS 


To  illustrate  the  difference  between  choices  in  CMO  refer  to  the  following  charts.  All  of 
the  graphical  output  is  from  the  same  data  set.  It’s  obvious  that  there  is  considerable 
difference  between  the  results.  The  3  period  CMO  is  very  influenced  by  changes  in  the 
commodity  price,  while  the  1 8  period  CMO  is  less  responsive  to  changes  in  prices.  It  is 
also  interesting  to  note  the  differences  in  the  error  terms.  Both  DES  and  VIDYA  have 
smaller  errors  than  Naive  but  are  alternatively  chosen  (see  individual  error  matrix).  The 
technique  developed  during  the  previous  consultation  examining  Lead  prices  was  based 
on  a  12  month  CMO.  The  technique  incorporated  the  direction  of  the  CMO  indicator, 
direction  of  the  forecasted  price  and  the  direction  of  the  actual  price.  If  all  displayed  a 
downward  trend  then  the  recommendation  was  to  sell  down  to  the  closing  price.  Which 
assumes  the  closing  price  next  month  would  be  even  lower.  If  all  were  increasing  or 
mixed  then  sell  at  the  premium  price.  This  assumes  the  closing  price  will  be  higher  next 
month.  It  does  not  appear  that  this  same  technique  will  be  as  useful  with  other  CMO 
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Momentum 


selections.  Lastly,  it  is  recommended  that  the  user  choose  a  12  month  CMO  for 
evaluations  of  commodity  prices. 


3  Month  CMO 


^^CMO 

Price 

-^VIDYA 


Months 


*  The  CMO  will  hit  +/-  100  when  there  are  3  consecutive  up  or  down  price  periods. 


Error 

BETA 

VIDYAMSE 

0.0001 

0.4700 

DES  MSE 

0.0002 

0.5000 

0.1500 

Naive  MSE 

0.0005 

0.0075 

0.5000 

DES  MAD 

0.0113 

0.5000 

0.0500 

0.0165 
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12  Month  CMO 


-100 


..  $0.24 

CMO 

$0.22  « 

$0.20  1 

Price 

$0.18 

_^DES 

..  $0.16 

..  $0.14 

..  $0.12 

..  $0.10 

--  $0.08 

$0.06 

..  $0.04 

--  $0.02 

..  $0.00 

Months 


IgBjyg 

■H 

bh 

mngi 

BB 

bh 

*  DES  MSE  and  VIDYA  MSE  are  the  same  due  to  rounding  to  four  decimals.  DES  MSE 
is  actually  .000172  vs.  VIDYA  MSE  at  .000175. 
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SECTION  4 
CONCLUSIONS 


The  use  of  this  automated  bid  evaluation  system  represents  an  opportunity  for  increased 
revenue.  A  previous  analysis  of  Lead  sales  for  FY  97  demonstrated  that  this  technique 
could  have  resulted  in  a  net  revenue  increase  of  $1,051,722  dollars  to  the  government. 
This  represents  a  1 5.8%  increase  in  sales  revenue  for  the  period.  These  techniques  may 
also  be  appropriate  for  the  non-terminally  traded  commodities.  Additional  testing  is 
required  to  substantiate  the  applicability  to  the  non-terminally  traded  commodities. 

Finally,  it  is  disappointing  that  an  “optimal  pricing”  strategy  or  a  market  basket  could  not 
be  successfully  developed  with  the  techniques  that  were  explored  under  this  project.  This 
does  not  necessarily  represent  a  failure,  but  rather  an  illustration  of  the  difficulty  to 
provide  reliable  information  about  these  infrequently  traded  commodities.  Developing  an 
“optimal  pricing”  strategy  for  this  set  of  commodities  may  be  possible  in  the  future  if 
additional  historical  data  becomes  available  or  by  possibly  exploring  other  analysis 
techniques  associated  with  analysis  of  erratic  and  a  periodic  events. 
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Appendix  A 

The  underlined  commodities  have  a  correlation  coefficient  .5  or  greater  (strong  positive 
relationship)  with  the  commodities  listed  below  them. 


Aluminum 

Aluminum  Oxide  Abrasive  Grain 

Bauxite  Metal,  Surinam 

0.9995 

Columbium,  Ferro 

0.5972 

Chromite,  Chemical  Grade 

0.6446 

Fluorspar  Acid 

0.64 

Chromium  Ferro  High  Carbon 

0.8389 

Germanium  Metal 

0.5338 

Columbium,  Ferro 

0.818 

Indium 

0.5337 

Germanium  Metal 

0.8269 

Kyanite 

0.5353 

Indium 

0.8288 

Manganese  Electrolytic 

0.5346 

Kyanite 

0.9995 

Manganese  Ferro  High  Carbon 

0.5337 

Manganese  Ferro  High  Carbon 

0.8288 

Manganese  Ferro  Silicon 

0.5353 

Manganese  Ferro  Silicon 

0.9995 

Manganese  Metal  Ore 

0.6887 

Mica  Muscovite  Block 

0.5888 

Palladium 

0.5337 

Mica  Muscovite  Film 

0.5811 

Platinum 

0.5353 

Palladium 

0.8288 

Quindine 

0.6708 

Platinum 

0.9995 

Quinine 

0.5794 

Quinidine 

0.5069 

Rubber 

0.6599 

Quinine 

0.5521 

Tantalum  Carbide  Powder 

0.5353 

Rubber 

0.6661 

Tantalum  Oxide 

0.5353 

Tantalum  Carbide  Powder 

0.9995 

Tantalum  Oxide 

0.9995 

Vanadium 

0.5151 

Aluminum  Oxide  Fused  Crude 

Antimony 

Bauxite  Metal,  Sumam 

0.5222 

Cadmium 

0.5736 

Columbium,  Ferro 

0.6324 

Cobalt 

0.7302 

Fluorspar  Acid 

0.6738 

Diamond  Stone 

0.5289 

Germanium  Metal 

0.5752 

Iodine 

0.7646 

Indium 

0.5753 

Nickel 

0.573 

Kyanite 

0.5916 

Rutile 

0.6469 

Manganese  Electrolytic 

0.6276 

Vegetable  Tannin  Quebracho 

0.8399 

Manganese  Ferro  High  Carbon 

0.5753 

Manganese  Ferro  Silicon 

0.5916 

Bauxite  Jamaican 

Mica  Muscovite  Block 

0.925 

Asbestos 

0.6509 

Mica  Muscovite  Film 

0.8542 

Beryllium 

0.7331 

Mica  Muscovite  Splittings 

0.666 

Graphite  Ceylon  Malagasy 

0.6164 

Palladium 

0.5753 

Talc 

0.9227 

Platinum 

0.5916 

Quinidine 

0.8392 

Bauxite  Refractory 
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’Quinine 

0.5231 

Chromite  Metal  Ore 

0.8087 

Rubber 

0.6733 

Chromite  Refractory 

0.7623 

Silicon  Carbide 

0.6261 

Nickel 

0.6544 

Tantalum  Carbide  Powder 

0.5916 

Tantalum  Oxide 

0.5916 

Vanadium 

0.7102 

Vegetable  Tannin  Chestnut 

0.5355 

Beryllium 

Bismuth 

Columbium  Ferro 

0.6324 

Chromite  Metal  Ore 

0.5522 

Germanium  Metal 

0.6447 

Chromite  Refractory 

0.5988 

Graphite  Nat  Malagasy 

0.5289 

Cobalt 

0.5563 

Indium 

0.6446 

Mica  Phlogopite  Splittings 

0.6312 

Kyanite 

0.5916 

Silicon  Carbide 

0.6755 

Manganese  Ferro  High  Carbon 

0.6447 

Zinc 

0.6166 

Manganese  Ferro  Silicon 

0.5916 

Palladium 

0.6447 

Cadmium 

Platinum 

0.5916 

Diamond  Stone 

0.5809 

Rubber 

0.7546 

Iodine 

0.8078 

Talc 

0.9273 

Manganese  Chemical 

0.7451 

Tantalum  Carbide  Powder 

0.5916 

Manganese  Dioxide  Battery 

0.6832 

Tantalum  Oxide 

0.5916 

Rutile 

0.7025 

Bauxite,  Surinam 

Chromite  Chemical  Grade 

Beryllium 

0.5222 

Chromite  Refractory 

0.7233 

Chromite  Chemical 

0.7098 

Chromium  Ferro  High  Carbon 

0.5912 

Chromite  Refractory 

0.6302 

Columbium,  Ferro 

0.8622 

Columbium  Ferro 

0.8184 

Germanium  Metal 

0.8586 

Chromium  Ferro  High  Carbon 

1 

Indium 

0.8585 

Diamond  Bort 

0.9998 

Kyanite 

0.7118 

Germanium  Metal 

0.8239 

Manganese  Ferro  High  Carbon 

0.8585 

Graphite  Nat  Malagasy 

0.7779 

Manganese  Ferro  Silicon 

0.7118 

Indium 

0.8257 

Mica  Muscovite  Film 

0.5002 

Kyanite 

1 

Mica  Phlogopite  Splittings 

0.7072 

Manganese  Electrolytic 

0.5222 

Palladium 

0.8585 

Manganese  Ferro  High  Carbon 

0.8257 

Platinum 

0.7118 

Manganese  Ferro  Silicon 

1 

Quinine 

0.5887 

Mica  Muscovite  Block 

0.6132 

Rubber 

0.6185 

Mica  Muscovite  Film 

0.6257 

Tantalum  Carbide  Powder 

0.7118 

Mica  Phlogopite  Splittings 

0.518 

Tantalum  Oxide 

0.7118 

Palladium 

0.8257 

Vegetable  Tannin  Wattle 

0.5031 

Platinum 

1 

Quindine 

0.5285 

Chromite  Chem  Grade 

Quinine 

0.7006 

Chromium  Refractory 

0.7233 
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•Rubber 

0.6596 

Chromium  Ferro  High  Carbon 

0.5912 

Talc 

1 

Columbium,  Ferro 

0.8622 

Tantalum  Carbide  Powder 

1 

Germanium  Metal 

0.8586 

Tantalum  Oxide 

1 

Indium 

0.8585 

Vegetable  Tannin  Wattle 

0.6809 

Kyanite 

0.7118 

Manganese  Ferro  High  Carbon 

0.8585 

Manganese  Ferro  Silicon 

0.7118 

Mica  Muscovite  Film 

0.5002 

Palladium 

0.8585 

Platinum 

0.7118 

Quinine 

0.5887 

Rubber 

0.6185 

Chromite  Ferro  Silicon 

Chromite  Metal  Ore 

Graphite  Nat  Malagasy 

0.699 

Manganese  Ferro  Silicon 

0.626 

Chromium  Refractory 

0.7163 

Mica  Phlogopite  Splittings 

0.7051 

Cobalt 

0.6683 

Platinum 

0.626 

Diamond  Bort 

0.5069 

Sebacic  Acid 

0.5063 

Manganese  Metal  Ore 

0.5106 

Tantalum  Carbide  Powder 

0.626 

Mica  Phlogopite  Splittings 

0.5897 

Tantalum  Oxide 

0.626 

Nickel 

0.6806 

Quartz 

0.7208 

Columbium,  Ferro 

Diamond  Bort 

0.8183 

Fluorspar  Acid 

0.588 

Chromium  Ferro  High  Carbon 

Germanium  Metal 

0.9995 

Columbium,  Ferro 

0.8184 

Graphite  Nat  Malagasy 

0.8907 

Germanium  Metal 

0.8273 

Indium 

0.9999 

Graphite  Nat  Malagasy 

0.5204 

Kyanite 

0.8141 

Indium 

0.8292 

Manganese  Electrol5^ic 

0.6324 

Kyanite 

1 

Manganese  Ferro  High  Carbon 

0.9999 

Manganese  Ferro  High  Carbon 

0.8292 

Manganese  Ferro  Silicon 

0.8141 

Manganese  Ferro  Silicon 

1 

Mica  Muscovite  Block 

0.6879 

Mica  Muscovite  Block 

0.5214 

Mica  Muscovite  Film 

0.7543 

Mica  Muscovite  Film 

0.5765 

Mica  Phlogopite  Splittings 

0.5181 

Palladium 

0.8291 

Palladium 

0.9999 

Platinum 

1 

Platinum 

0.8141 

Quinine 

0.6355 

Quinidine 

0.64 

Rubber 

0.6672 

Quinine 

0.8485 

Talc 

0.6198 

Rubber 

0.8294 

Tantalum  Carbide  Powder 

1 

Tin 

0.5245 

Tantalum  Oxide 

1 

Talc 

0.8184 

Vanadium 

0.5162 

Tantalum  Carbide  Powder 

0.8141 

Tantalum  Oxide 

0.8141 

Cobalt 

Vanadium 

0.5813 

Mica  Phlogopite  Splittings 

0.5829 

Vegetable  Tannin  Wattle 

0.8396 
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Nickel  0.5136 


Vegetable  Tannin  Quebracho 

0.7481 

Fluorspar  Metal 

Manganese  Chemical 

0.5603 

Diamond  Stone 

Manganese  Dioxide  Battery 

0.6605 

Iodine 

0.6993 

Mica  Muscovite  Film 

0.5501 

Manganese  Chemical 

0.7567 

Mica  Phlogopite  Splittings 

0.5329 

Manganese  Dioxide  Battery 

0.6314 

Quinine 

0.6659 

Rutile 

0.7874 

Rubber 

0.554 

Sebacic  Acid 

0.7464 

Sebacic  Acid 

0.6188 

Vegetable  Tannin  Quebracho 

0.5142 

Vegetable  Tannin  Quebracho 

0.6008 

Graphite  Ceylon  Malagasy 

Rutile 

0.5641 

Sebacic  Acid 

0.5249 

Talc 

0.5013 

Diamond  Bort 

Germanium  Metal 

0.6842 

Fluorspar  Acid 

Germanium  Metal 

0.602 

Graphite  Nat  Malagasy 

0.5447 

Indium 

0.6019 

Indium 

0.829 

Kyanite 

0.5487 

Kyanite 

0.9998 

Manganese  Electrolytic 

0.6851 

Manganese  Electrolytic 

0.5781 

Manganese  Ferro  High  Carbon 

0.6019 

Manganese  Electrolytic 

0.5781 

Manganese  Ferro  Silicon 

0.5487 

Manganese  Ferro  High  Carbon 

0.829 

Mica  Muscovite  Block 

0.746 

Manganese  Ferro  Silicon 

0.9998 

Mica  Muscovite  Film 

0.7611 

Palladium 

0.829 

Palladium 

0.6019 

Platinum 

0.9998 

Platinum 

0.5487 

Quartz 

0.5281 

Quinidine 

0.7858 

Quinine 

0.5142 

Quinine 

0.7111 

Rubber 

0.6666 

Rubber 

0.7278 

Tantalum  Carbide  Powder 

0.9998 

Silicon  Carbide 

0.5471 

Tantalum  Oxide 

0.9998 

Tantalum  Carbide  Powder 

0.5487 

Vegetable  Tannin  Chestnut 

0.5518 

Tantalum  Oxide 

0.5487 

Vegetable  Tannin  Wattle 

0.6343 

Vanadium 

0.6135 

Germanium  Metal 

Vegetable  Tannin  Chestnut 

Vegetable  Tannin  Wattle 

0.5222 

0.5861 

Graphite  Nat  Malagasy 

Indium 

0.8941 

0.9999 

Graphite  Nat  Malagasy 

Kyanite 

0.8197 

Indium 

0.8946 

Manganese  Electrol)4:ic 

0.5641 

Kyanite 

0.7732 

Manganese  Ferro  High  Carbon 

0.9999 

Manganese  Ferro  High  Carbon 

0.8946 

Manganese  Ferro  Silicon 

0.8197 

Manganese  Ferro  Silicon 

0.7732 

Mica  Muscovite  Block 

0.6476 

Palladium 

0.8946 

Mica  Muscovite  Film 

0.7279 

Platinum 

0.7732 
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’Mica  Phlogopite  Splittings 

0.5096 

Rubber 

0.705 

Palladium 

0.9999 

Sebacic  Acid 

0.5065 

Platinum 

0.8197 

Talc 

0.5349 

Quinidine 

0.5736 

Tantalum  Carbide  Powder 

0.7732 

Quinine 

0.8528 

Tantalum  Oxide 

0.7732 

Rubber 

0.8339 

Talc 

0.8273 

Iodine 

Tantalum  Carbide  Powder 

0.8197 

Manganese  Chemical 

0.6317 

Tantalum  Oxide 

0.8197 

Manganese  Dioxide  Battery 

0.5175 

Tin 

0.5043 

Nickel 

0.5554 

Vanadium 

0.5813 

Rutile 

0.9165 

Vegetable  Tannin  Wattle 

0.834 

Vegetable  Tannin  Quebracho 

0.5137 

Manganese  Chemical 

Manganese  Dioxide  Battery 

Manganese  Dioxide  Battery 

0.734 

Rutile 

0.6279 

Rutile 

0.7146 

Sebacic  Acid 

0.5925 

Vanadium 

0.5614 

Indium 

Kyanite 

Kyanite 

0.8216 

Manganese  Electrolytic 

0.5916 

Manganese  Electrolytic 

0.5641 

Manganese  Ferro  High  Carbon 

0.8216 

Manganese  Ferro  High  Carbon 

1 

Manganese  Ferro  Silicon 

1 

Manganese  Ferro  Silicon 

0.8216 

Mica  Muscovite  Block 

0.6525 

Mica  Muscovite  Block 

0.648 

Mica  Muscovite  Film 

0.6488 

Mica  Muscovite  Film 

0.7279 

Mica  Phlogopite  Splittings 

0.6541 

Mica  Phlogopite  Splittings 

0.5104 

Palladium 

0.8216 

Palladium 

1 

Platinum 

1 

Platinum 

0.8216 

Quinidine 

0.5954 

Quinidine 

0.5736 

Quinine 

0.6928 

Quinine 

0.8528 

Rubber 

0.6504 

Rubber 

0.8338 

Talc 

1 

Talc 

0.8292 

Tantalum  Carbide  Powder 

1 

Tantalum  Carbide  Powder 

0.8216 

Tantalum  Oxide 

1 

Tantalum  Oxide 

0.8216 

Tin 

0.5126 

Tin 

0.5042 

Vanadium 

0.5291 

Vanadium 

0.581 

Vegetable  Tannin  Wattle 

0.6724 

Vegetable  Tannin  Wattle 

0.8439 

Manganese  Electroylic 

Manganese  Ferro  High  Carbon 

Manganese  Ferro  High  Carbon 

0.5641 

Manganese  Ferro  Silicon 

0.8216 

Manganese  Ferro  Silicon 

0.5916 

Mica  Muscovite  Block 

0.648 

Mica  Muscovite  Block 

0.6205 

Mica  Muscovite  Film 

0.7279 
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■'Mica  Muscovite  Film 

0.6591 

Mica  Phlogopite  Splittings 

0.5103 

Mica  Muscovite  Splitting 

0.5479 

Palladium 

1 

Palladium 

0.5641 

Platinum 

0.8216 

Platinum 

0.5916 

Quindine 

0.5736 

Quindine 

0.7982 

Quinine 

0.8528 

Quinine 

0.6299 

Rubber 

0.8338 

Rubber 

0.6602 

Talc 

0.8292 

Silicon  Carbide 

0.743 

Tantalum  Carbide  Powder 

0.8216 

Tantalum  Carbide  Powder 

0.5916 

Tantalum  Oxide 

0.8216 

Tantalum  Oxide 

0.5916 

Tin 

0.5042 

Vegetable  Tannin  Chestnut 

0.7632 

Vanadium 

0.581 

Vegetable  Tannin  Wattle 

0.6786 

Vegetable  Tannin  Wattle 

0.8439 

Zinc 

0.5426 

Manganese  Metal  Ore  Grade 

Mica  Muscovite  Splittings 

Quartz 

0.8041 

Vegetable  Tannin  Chestnut 

0.5991 

Mica  Phlogopite  Splittings 

Nickel 

Palladium 

0.5104 

Rutile 

0.5364 

Platinum 

0.6541 

Tantalum  Carbide  Powder 

0.6541 

Tantalum  Oxide 

0.6541 

Vegetable  Tannin  Quebracho 

0.6866 

Manganese  Ferro  Silicon 

Mica  Muscovite  Block 

Mica  Muscovite  Block 

0.6525 

Mica  Muscovite  Film 

0.9296 

Mica  Muscovite  Film 

0.6488 

Mica  Muscovite  Splittings 

0.5137 

Mica  Phlogopite  Splittings 

0.6541 

Palladium 

0.648 

Palladium 

0.8216 

Platinum 

0.6525 

Platinum 

1 

Quinidine 

0.9113 

Quinidine 

0.5954 

Quinine 

•  0.5869 

Quinine 

0.6928 

Rubber 

0.7179 

Rubber 

0.6504 

Silicon  Carbide 

0.5677 

Talc 

1 

Silver 

0.5333 

Tantalum  Carbide  Powder 

1 

Tantalum  Carbide  Powder 

0.6525 

Tantalum  Oxide 

1 

Tantalum  Oxide 

0.6525 

Tin 

0.5126 

Vanadium 

0.8107 

Vanadium 

0.5291 

Vegetable  Tannin  Chestnut 

0.5603 

Vegetable  Tannin  Wattle 

0.6724 

Platinum 

Mica  Muscovite  Film 

Quinidine 

0.5954 

Palladium 

0.7279 

Quinine 

0.6928 

Platinum 

0.6488 

Rubber 

0.6504 

Quinidine 

0.8305 

Talc 

1 
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Quinine 

0.7105 

Tantalum  Carbide  Powder 

Rubber 

0.7624 

Tantalum  Oxide 

Silicon  Carbide 

0.6208 

Tin 

Silver 

0.5729 

Vanadium 

Tantalum  Carbide  Powder 

0.6488 

Vegetable  Tannin  Wattle 

Tantalum  Oxide 

0.6488 

Vanadium 

0.8141 

Quinidine 

Vegetable  Tannin  Chestnut 

0.6125 

Quinine 

Vegetable  Tannin  Wattle 

0.5687 

Rubber 

Zinc 

0.5713 

Silicon  Carbide 

Silver 

Palladium 

Tantalum  Carbide  Powder 

Platinum 

0.8216 

Tantalum  Oxide 

Quinidine 

0.5736 

Vanadium 

Quinine 

0.8528 

Vegetable  Tannin  Chestnut 

Rubber 

0.8338 

Talc 

0.8292 

Rutile 

Tantalum  Carbide  Powder 

0.8216 

Sebacic  Acid 

Tantalum  Oxide 

0.8216 

Tin 

0.5042 

Silicon  Carbide 

Vanadium 

0.581 

Vegetable  Tannin  Chestnut 

Vegetable  Tannin  Wattle 

Quinine 

0.8439 

Vegetable  Tannin  Wattle 
Zinc 

Rubber 

0.9982 

Silver 

Tantalum  Carbide  Powder 

0.6928 

Vanadium 

Tantalum  Oxide 

0.6928 

Vegetable  Tannin  Chestnut 

0.5056 

Vegetable  Tannin  Wattle 

0.8724 

Rubber 

Talc 

Silver 

0.5332 

Tantalum  Carbide  Powder 

Talc 

0.6672 

Tantalum  Oxide 

Tantalum  Carbide  Powder 

0.6504 

Tantalum  Oxideq 

0.6504 

Vegetable  Tannin  Chestnut 

Tin 

0.6891 

Vegetable  Tannin  Wattle 

Vanadium 

0.6801 

Zinc 

Vegetable  Tannin  Chestnut 

0.5 

Vegetable  Tannin  Wattle 

0.9993 

Tantalum  Carbide  Powder 


Tantalum  Oxide 

1 

Tin 

0.5126 

Vanadium 

0.5291 

Vegetable  Tannin  Wattle 

0.6724 

1 

1 

0.5126 

0.5291 

0.6724 


0.5318 

0.6714 

0.5857 

0.7194 

0.5954 

0.5954 

0.8309 

0.6138 


0.5459 


0.7044 

0.5023 

0.771 


0.7058 


1 

1 


0.6414 

0.5497 


A-7 


The  underlined  commodities  have  a  correlation  coefficient  -.5  or  less  (strong  negative 
relationship)  with  the  commodities  listed  below  them. 


Antimony 

Manganese  Ferro  Silicon 

Aluminum  Oxide  Abrasive  Grain  -0.801 

Antimony 

-0.563 

Cadmium 

-0.529 

Cadmium 

Cobalt 

-0.697 

Aluminum  Oxide  Abrasive  Grain  -0.847 

Iodine 

-0.592 

Diamond  Stones 

Manganese  Metal  Ore 

Aluminum  Oxide  Abrasive  Grain  -0.707 

Cadmium 

-0.858 

Diamond  Stones 

-0.528 

Germanium  Metal 

Iodine 

-0.66 

Cadmium  -0.528 

Manganese  Chemical 

-0.746 

Manganese  Dioxide  Battery 

-0.656 

Indium 

Cadmium  -0.528 

Mica  Muscovite  Splittings 

Manganvese  Ferro  Silicon 

-0.566 

Iodine 

Kyanite 

-0.566 

Aluminum  Oxide  Abrasive  Grain  -0.979 
Fluorspar  Acid  -0.689 

Nickel 

Germanium  Metal  -0.564 

Aluminum  Oxide  Fused  Crude 

-0.525 

Indium  -0.564 

Kyanite 

-0.521 

Lead 

-0.532 

Manganese  Ferro  Silicon 

-0.521 

Kyanite 

Antimony  -0.563 

Mica  Muscovite  Block 

-0.676 

Cadmium  -0.529 

Palladium 

Cobalt  -0.697 

Cadmium 

-0.528 

Iodine  -0.592 

Iodine 

-0.564 

Lead 

Platinum 

Bauxite  Refractory  -0.605 

Antimony 

-0.563 

Cadmium 

-0.529 

Manganese  Chemical 

Cobalt 

-0.697 

Aluminum  Oxide  Abrasive  Grain  -0.66 

Iodine 

-0.592 

Mica  Muscovite  Splittings 

-0.566 

Manganese  Dioxide  Battery 

Nickel 

-0.521 

Aluminum  Oxide  Abrasive  Grain  -0.553 

Quartz 

Manganese  Electrolytic 

Cadmium 

-0.74 

Iodine  -0.607 

Manganese  Chemical 

-0.616 

A-8 


Manganese  Ferro  High  Carbon 

Cadmium 

-0.528 

Manganese  Dioxide  Battery 

Tantalum  Oxide 

Iodine 

-0.564 

Antimony 

Quinine 

Cadmium 

Cobalt 

Iodine 

-0.568 

Iodine 

Quinidine 

Mica  Muscovite  Splittings 

Nickel 

Antimony 

-0.697 

Rutile 

Chromite  Metal  Ore 

-0.614 

Iodine 

-0.713 

Vanadium 

Nickel 

-0.787 

Chromite  Metal  Ore 

Rubber 

Antimony 

-0.534 

Nickel 

Vegetable  Tannin  Quebracho 

Cadmium 

-0.6 

Aluminum  Oxide  Abrasive  Grain 

Iodine 

-0.66 

Kyanite 

Nickel 

-0.544 

Manganese  Ferro  Silicon 

Rutile 

Platinum 

Tantalum  Carbide  Powder 

Aluminum  Oxide  Abrasive  Grain 

-0.89 

Tantalum  Oxide 

Fluorspar  Acid 

-0.612 

Kyanite 

-0.507 

Tantalum  Carbide  Powder 

Platinum 

-0.507 

Antimony 

Quinidine 

-0.632 

Cadmium 

Quinine 

-0.51 

Cobalt 

Manganese  Ferro  Silicon 

-0.507 

Iodine 

Manganese  Metal  Ore 

-0.626 

Mica  Muscovite  Splittings 

Rubber 

-0.576 

Nickel 

Sliver 

Bauxite  Refractory 

-0.633 

Rutile 

Chromite  Metal  Ore 

-0.676 

Nickel 

-0.835 

-0.513 


-0.563 

-0.529 

-0.697 

-0.592 

-0.566 

-0.521 

-0.507 


-0.53 

-0.715 


-0.571 

-0.573 

-0.573 

-0.573 

-0.573 

-0.573 


-0.563 

-0.529 

-0.697 

-0.592 

-0.566 

-0.521 

-0.507 
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Appendix  B 


This  appendix  contains  the  Visual  Basic  code  that  runs  the  PC  add  in  developed  by 
DORO  for  DNSC.  It  is  assumed  the  reader  understands  Visual  Basic  and  that  this 
inclusion  will  explain  what  is  happening  behind  the  screen.  Each  module  performs  a 
specified  task  and  all  tasks  are  listed  in  the  sequence  in  which  they  run. 

'  This  program  is  the  result  of  numerous  contributions  from  a 
'  variety  of  people.  I  would  like  to  Thank  Major  Mark  Entner, 

'  Ms.  Maureen  Kinkela,  and  Mr.  Ben  Roberts.  Without  their 
'  help,  suggestions,  and  patience  this  program  would  have 
’  not  been  possible.  Major  Randy  Zimmerman,  August  1997. 


Public  Measure  As  Integer 

Public  Months  As  Integer 

Public  Momentum  As  Integer 

Public  Price  As  Variant 

'  Button3_Click  Macro 

Sub  Button3_Click()  'closes  the  macro  calculation  dialog  box 
DialogSheets("Dialogl").Hide 
End 

End  Sub 

Sub  AnalysisQ 
Start 

'  ThisWorkbook.DialogSheets("Dialogl  ").Show 

'  Price  =  ThisWorkbook.DialogSheets("Dialogr').EditBoxes("Edit  Box  5"). Text 
'  Measure  =  ThisWorkbook.Worksheets("Sheetl").Cells(l,  2) 

'  Months  =  ThisWorkbook.Worksheets("Sheetl").Cells(l,  4)  *  3 

'  Momentum  =  ThisWorkbook. Worksheets("Sheetl  ").Cells(l ,  6) 

Range(Price).  Select 
Selection.  Copy 

'  Errorcheck  (Price)  'checks  the  #months  to  graph  vs  #months  input 
CreateNewbook  'inserts  a  new  workbook  for  the  evaluation 
Conversion  (Price)  'converts  the  price  values  to  $/LB 
Formatsheet  'formats  the  new  sheet  w/column  headings 
CountRow  'performs  the  count  function  for  the  number  of  rows  read  in 
Equations  (Price)  'inserts  the  equations  on  Evaluation  sheet 
Oscillation  'sets  the  momentum  oscillation  for  the  eval  sheet 
SOLVE_DES_MAD 
SOLVE_DES_MSE 


B-1 


''  SOLVE_VIDYA_MAD 
SOLVE_VIDYA_MSE 
Sort  'sorts  the  error  terms  in  ascending  order 
SelectTest  'select  rows  in  Eval  Table  to  graph  Select  Graph 
Selectspace  'selects  cell  A1  on  all  sheets 
End  Sub 

Sub  StartO 

linel :  ThisWorkbook.DialogSheets("Dialogl  ").Show 

Price  =  ThisWorkbook.DialogSheets("Dialogl").EditBoxes("Edit  Box  5").Text 
Measure  =  ThisWorkbook.Worksheets("Sheetl").Cells(l,  2) 

Months  =  ThisWorkbook.Worksheets("Sheetl").Cells(l,  4)  *  3 
Momentum  =  ThisWorkbook.Worksheets("Sheetl").Cells(l,  6) 


'Sub  Errorcheck(Price2) 
a  =  Range(Price).count 
If  a  <  Months  Then 

Msg  =  "You  are  attempting  to  graph  too  many  months!" 
dialogstyle  =  vbOK  +  vbCritical 
Title  =  "Price  Input  Error" 
response  =  MsgBox(Msg,  dialogstyle.  Title) 

If  response  =  vbOK  Then 
GoTo  linel 
End  If 

End  If 
End  Sub 

Sub  CreateNewbookO 

Set  Newbook  =  Workbooks.Add  'adds  new  book  "newbook  is  a  variable" 
ActiveSheet.Name  =  "Evaluation  Sheet" 

Range("A3").Select  'tells  code  what  cell  to  highlight/Paste  in  prices 
Selection.PasteSpecial  Paste :=xl Values,  Operation:=xlNone,  _ 
SkipBlanks:=False,  Transpose:=False 
End  Sub 

Sub  Conversion(Pricel)  'converts  prices  to  $/LB 
z  =  3 

If  Measure  =  1  Then 
Elself  Measure  =  2  Then 
Do  Until  Cells(z,  1). Value  =  "" 

Cells(z,  l).Value  =  Cells(z,  1). Value  *  2.20462262184878 

z  =  z+  1 

Loop 
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Elself  Measure  =  3  Then 
Do  Until  Cells(z,  l).Value  =  "" 

Cells(z,  1).  Value  =  Cells(z,  1).  Value  /  2240 

z  =  z+  1 

Loop 

Elself  Measure  =  4  Then 
Do  Until  Cells(z,  l).Value  = "" 

Cells(z,  1 ).  Value  =  Cells(z,  1 ).  Value  /  2204.62262184878 

z  =  z  +  1 

Loop 

Elself  Measure  =  5  Then 
Do  Until  Cells(z,  l).Value  =  "" 

Cells(z,  1 ). Value  =  Cells(z,  l).Value/2000 

z  =  z+  1 

Loop 

Elself  Measure  =  6  Then 
Do  Until  Cells(z,  l).Value  =  "" 

Cells(z,  1).  Value  =  Cells(z,  1).  Value  /  2000 
z  =  z  +  1 
Loop 
End  If 
End  Sub 

Sub  FormatsheetO 
Range("  A 1 ").  Select 
ActiveCell.FormulaRlCl  =  "Price/LB" 

With  Selection 

.HorizontalAlignment  =  xlCenter 
.Vertical  Alignment  =  xlBottom 
.WrapText  =  False 
.Orientation  =  xlHorizontal 
End  With 

Range("A2").Select 
Selection.  ClearContents 
Range("Bl").Select 

ActiveCell.FormulaRlCl  =  "DES  Forecast" 
Range("Cl").Select 

ActiveCell.FormulaRlCl  =  "VIDYA  Forecast" 
Range("Dl").Select 

ActiveCell.FormulaRlCl  =  "CMO  Indicator" 
Range("El").Select 

ActiveCell.FormulaRlCl  =  "Naive  Forecast" 
Range("Fl").Select 

ActiveCell.FormulaRlCl  =  "Naive  MAD" 
Range("Gl").Select 
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ActiveCell.FormulaRlCl  =  "Naive  MSB" 
Range("H  1").  Select 

ActiveCell.FormulaRlCl  =  "DBS  Intercept" 
Range("Il").Select 

ActiveCell.FormulaRlCl  =  "DBS  Slope" 
Range("Jl").Select 

ActiveCell.FormulaRlCl  =  "DBS  MAD" 
Range("Kl").Select 

ActiveCell.FormulaRlCl  =  "DBS  MSB" 
Range("Ll").Select 

ActiveCell.FormulaRlCl  =  "STD  DBV" 
RangeC'Ml").  Select 
ActiveCell.FormulaRlCl  =  "k" 

With  Selection 

.HorizontalAlignment  =  xlCenter 
.Vertical  Alignment  =  xIBottom 
.WrapText  =  False 
.Orientation  =  xlHorizontal 
Bnd  With 

Range("Nl").Select 

ActiveCell.FormulaRlCl  =  "VIDYA  MAD" 
Range("01"). Select 

ActiveCelLFormulaRlCl  =  "VIDYA  MSB" 
Range("Pl").Select 

ActiveCell.FormulaRlCl  =  "CMO  Mtm  Up" 
Range("Ql").Select 

ActiveCell.FormulaRlCl  =  "CMO  Mtm  Dn" 
Range("Rl").Select 
ActiveCell.FormulaRlCl  =  "Su" 

With  Selection 

.HorizontalAlignment  =  xlCenter 
.VerticalAlignment  =  xlBottom 
.WrapText  =  False 
.Orientation  =  xlHorizontal 
Bnd  With 

Range("Sl").Select 
ActiveCell.FormulaRlCl  =  "Sd" 

With  Selection 

.HorizontalAlignment  =  xlCenter 
.VerticalAlignment  =  xlBottom 
.WrapText  =  False 
.Orientation  =  xlHorizontal 
Bnd  With 

Range("Tl").Select 

ActiveCell.FormulaRlCl  =  "ABS  CMO" 
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Range("U3").  Select 
ActiveCell.FormulaRlCl  =  "a" 

Range("U4").  Select 
ActiveCell.FormulaRl  C 1  =  "b" 

Range("U5'’).Select 

ActiveCelLFormulaRlCl  =  "Ave  STD  DEV" 

Range("Al:AAl").Select 
Selection.EntireColumn.AutoFit 
Range("U3:U4").Select 
With  Selection.  Font 
.Name  =  "Symbol" 

.Fonts  tyle  =  "Regular" 

.Size  -  12 

.Strikethrough  =  False 
.Superscript  =  False 
.Subscript  =  False 
.OutlineFont  =  False 
.Shadow  =  False 
.Underline  =  xlNone 
.Colorindex  =  xlAutomatic 
End  With 
End  Sub 

Sub  autofill(startpt  As  String,  formula  As  String) 

Range(startpt) .  Select 
ActiveCell.  formula  =  formula 
Range(startpt) .  Select 
cnt%  =  ActiveSheet.Cells(6,  22).Value 
autorangeS  =  startpt  +  ":"  +  Left$(startpt,  1)  +  _ 
LTrim(Str$(Val(Mid$(startpt,  2))  +  cnt%  +  2  -  Val(Mid$(startpt,  2)))) 
'MsgBox  autorangeS  +  Str$(cnt%) 

Selection,  autofill  Destination; =Range(autorange$),  T  ype  :=xlF  illDefault 
Range(autorange$).  Select 
End  Sub 

Sub  CountRowQ 
Dim  i  As  Integer 
i  =  3 

count  =  0 

ActiveSheet.CelIs(3,  1). Select 
Do  While  Cells(i,  1)  >  0 
count  =  count  +  1 
i  =  i+  1 
Loop 


B-5 


Worksheets("Evaluation  Sheet").Cells(6,  22). Value  =  count 
End  Sub 


j 


Sub  Equations(Price) 

Dim  Price2  As  Range 

Set  Price2  =  Range(Price).Offset(2,  0) 

Range("V3").Select 

ActiveCell. formula  =  "=.5"  'Start  value  for  Alpha 
Range("V4").Select 

ActiveCell.formula  =  "=.5"  'Start  value  for  Beta 
Range("f2").Select 

ActiveCell.formula  =  "=sum(average(f4:fl000))" 

Range("g2").Select 

ActiveCell.formula  =  "=sum(average(g4:gl000))" 

Range("j2").Select 

ActiveCell.formula  =  "=sum(average(j3:jl000))" 

Range("k2").Select 

ActiveCell.formula  =  "=sum(average(k3;kl000))" 

Range("n2").Select 

ActiveCell.formula  =  "=sum(average(n3:nl000))" 

Range("o2"). Select 

ActiveCell.formula  =  "=sum(average(o3:ol000))" 

Range("B3").Select 

Call  autofill("b3",  "=H3+I3") 

Call  autofill("E4",  "=A3")  'Naive  forecast 
Call  autofill("F4",  "=ABS(A4-E4)")  'Naive  MAD 
Call  autofill("G4",  "=ABS(F4)^2")  'Naive  MSE 

Call  autofill("H3",  "=$V$3*A3+(1-$V$3)*(H2+I2)")  'DES  Intercept  calculation 

Call  autofill("I3",  "=$V$4*(H3-H2)+(1-$V$4)*I2")  'DES  Slope  calculation 

Call  autofill("J3",  "=ABS(A3-B3)")  'DSE  MAD 

Call  autofill("K3",  "=(J3)^2")  'DES  MSE 

Call  autofill("P3",  "=IF(A3>A4,0,A4-A3)")  'CMO  Mtm  Up 

Call  autofill("Q3",  "=IF(A3>A4,A3-A4,0)")  'CMO  Mtm  Down 

Range("A2:Y1000").Select 

With  Selection 

.Horizontal  Alignment  =  xlCenter 
•Vertical  Alignment  =  xlBottom 
.WrapText  =  False 
.Orientation  =  xlHorizontal 
End  With 

Selection.NumberFormat  =  "0.0000" 

Selection.EntireColumn.AutoFit 
End  Sub 

Sub  OscillationQ 
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If  Momentum  =  1  Then 
Range("C4").  Select 
ActiveCell.formula  =  "=A4" 

Call  autofill("C5",  "=($V$3*M5)*A5+(1-$V$3*M5)*A4")  'VIDYA  forecast 
Call  autofill("D5",  "=100*(R5-S5)/ABS(R5+S5)'’)  'CMO  Indicate!  Equation 
Range("H2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$5), 2)"  'Y  intercept 
Range("I2"). Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$5),l)"  'slope  of  line 

Call  autofill("L5",  "=STDEV(A3:A5)")  '3MO  STD  DEV 

Call  autofill("M5",  "=L5/$V$5")  'K  value  calculation 

Call  autofill("N5",  "=ABS(A5-C5)")  'VIDYA  MAD 

Call  autofillC'OS",  "=(N5)^2")  'VIDYA  MSE 

Call  autofill("R5",  "=SUM(P3;P5)")  'Su  Mtm  Up 

Call  autofill("S5",  "=SUM(Q3:Q5)")  'Su  Mtm  Up 

Call  autofill("T5",  "=ABS((R5-S5)/(R5+S5))")  ’  ABS  CMO 

Range("V5").Select 

ActiveCell.formula  =  "=AVERAGE($L$5;$L$10)"  'VIDYA  Constant  of  Ave  Std  Dev 

Elself  Momentum  =  2  Then 
Range("C5").Select 
ActiveCell.formula  =  "=A5" 

Call  autofill("C6",  "=($V$3*M6)*A6+(1-$V$3*M6)*A5")  'VIDYA  forecast 
Call  autofill("D6",  "=100*(R6-S6)/ABS(R6+S6)")  'CMO  Indicate!  Equation 
Range("H2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$6),2)"  'Y  intercept 
Range("I2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$6),l)"  'slope  of  line 

Call  autofill("L6",  "=STDEV(A3:A6)")  '4  MO  STD  DEV 

Call  autofill("M6",  "=L6/$V$5")  'K  value  calculation 

Call  autofill("N6",  "=ABS(A6-C6)")  'VIDYA  MAD 

Call  autofill("06",  "=(N6)^2")  'VIDYA  MSE 

Call  autofill("R6",  "=SUM(P3:P6)")  'Su  Mtm  Up 

Call  autofill("S6",  "=SUM(Q3:Q6)")  'Su  Mtm  Up 

Call  autofill("T6",  "=ABS((R6-S6)/(R6+S6))") '  ABS  CMO 

Range("V5").Select 

ActiveCell.formula  =  "=AVERAGE($L$6:$L$13)"  'VIDYA  Constant  of  Ave  Std  Dev 

Elself  Momentum  =  3  Then 
Range("C6").Select 
ActiveCell.formula  =  "=A6" 

Call  autofill("C7",  "=($V$3*M7)*A7+(1-$V$3*M7)*A6")  'VIDYA  forecast 
Call  autofill("D7",  "=100*(R7-S7)/ABS(R7+S7)")  'CMO  Indicate!  Equation 
Range("H2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$7),2)"  'Y  intercept 


B-7 


Range("I2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$7),l)"  'slope  of  line 

Call  autofill("L7",  "=STDEV(A3:A7)’')  '5  MO  STD  DEV 

Call  autofill("M7",  "=L7/$V$5")  'K  value  calculation 

Call  autofill(''N7",  "=ABS(A7-C7)")  'VIDYA  MAD 

Call  autofill("07",  "=(N7r2")  'VIDYA  MSE 

Call  autofill("R7",  "=SUM(P3:P7)")  'Su  Mtm  Up 

Call  autofill("S7",  "=SUM(Q3:Q7)")  'Su  Mtm  Up 

Call  autofill("T7",  "=ABS((R7-S7)/(R7+S7))") '  ABS  CMO 

Range("V5").Select 

ActiveCell.formula  =  "=AVERAGE($L$7:$L$16)"  'VIDYA  Constant  of  Ave  Std  Dev 

Elself  Momentum  =  4  Then 
Range("C7").SeIect 
ActiveCell.formula  =  "=A7" 

Call  autofill("C8",  "=($V$3*M8)*A8+(1-$V$3*M8)*A7")  'VIDYA  forecast 
Call  autofill("D8",  "=100*(R8-S8)/ABS(R8+S8)")  'CMO  Indicater  Equation 
Range("H2").  Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$8),2)"  'Y  intercept 
Range("I2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$8),l)"  'slope  of  line 

Call  autofill("L8",  "=STDEV(A3:A8)")  '6  MO  STD  DEV 

Call  autofill("M8",  "=L8/$V$5")  'K  value  calculation 

Call  autofill("N8",  "=ABS(A8-C8)")  'VIDYA  MAD 

Call  autofill("08",  "=(N8)^2")  'VIDYA  MSE 

Call  autofill("R8",  "=SUM(P3:P8)")  'Su  Mtm  Up 

Call  autofill("S8",  "=SUM(Q3:Q8)")  'Su  Mtm  Up 

Call  autofill("T8",  "=ABS((R8-S8)/(R8+S8))") '  ABS  CMO 

Range("V5").  Select 

ActiveCell.formula  =  "=AVERAGE($L$8:$L$19)"  'VIDYA  Constant  of  Ave  Std  Dev 


Elself  Momentum  =  5  Then 
Range("C8").Select 
ActiveCell.formula  =  "=A8" 

Call  autofill("C9",  "=($V$3*M9)*A9+(1-$V$3*M9)*A8")  'VIDYA  forecast 
Call  autofill("D9",  "=100*(R9-S9)/ABS(R9+S9)")  'CMO  Indicater  Equation 
Range("H2").  Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$9),2)"  'Y  intercept 
Range("I2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$9),l)"  'slope  of  line 

Call  autofill("L9",  "=STDEV(A3:A9)")  '7  MO  STD  DEV 

Call  autofill("M9",  "=L9/$V$5")  'K  value  calculation 

Call  autofill("N9",  "=ABS(A9-C9)")  'VIDYA  MAD 

Call  autofill("09",  "=(N9)^2")  'VIDYA  MSE 

Call  autofill("R9",  "=SUM(P3:P9)")  'Su  Mtm  Up 
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'■  Call  autofill("S9",  "=SUM(Q3:Q9)")  'Su  Mtm  Up 
Call  autofill("T9",  "=ABS((R9-S9)/(R9+S9))") '  ABS  CMO 
Range("V5").Select 

ActiveCell. formula  =  "=AVERAGE($L$9:$L$22)"  'VIDYA  Constant  of  Ave  Std  Dev 


Elself  Momentum  =  6  Then 
Range("C9").Select 
ActiveCell.formula  =  "=A9" 

Call  autofillfClO",  "=($V$3*M10)*A10+(1-$V$3*M10)*A9")  'VIDYA  forecast 
Call  autofillC'DlO",  "=100*(R10-S10)/ABS(R10+S10)")  'CMO  Indicater  Equation 
Range("H2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$10),2)"  'Y  intercept 
Range("I2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$10),l)"  'slope  of  line 

Call  autofillC’LlO",  "=STDEV(A3:A10)")  '8  MO  STD  DEV 

Call  autofillC'MlO",  "=L10/$V$5")  'K  value  calculation 

Call  autofillC’NlO",  "=ABS(A10-C10)")  'VIDYA  MAD 

Call  autofillC'OlO",  "=(N10)^2")  'VIDYA  MSE 

Call  autofillC'RlO",  "=SUM(P3:P10)")  'Su  Mtm  Up 

Call  autofillC'SlO",  "=SUM(Q3:Q10)")  'Su  Mtm  Up 

Call  autofillC'TlO",  "=ABS((R10-S10)/(R10+S10))")  ’  ABS  CMO 

Range("V5").Select 

ActiveCell.formula  =  "=AVERAGE($L$10:$L$25)"  'VIDYA  Constant  of  Ave  Std 
Dev 


Elself  Momentum  =  7  Then 
RangeC'C  10").  Select 
ActiveCell.formula  =  "=A10" 

Call  autofillC'Cl  1",  "=($V$3*M1 1)*A1 1+(1-$V$3*M1 1)*A10")  'VIDYA  forecast 
Call  autofillC'Dl  1",  "=100*(R1 1-Sl  1)/ABS(R1 1+Sl  1)")  'CMO  Indicater  Equation 
Range("H2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$l  1),2)"  'Y  intercept 
Range("I2").Select 

ActiveCell.formula  =  "=index(linest($A$3;$A$ll),l)"  'slope  of  line 

Call  autofillC'Ll  1",  "=STDEV(A3:A1 1)")  '9  MO  STD  DEV 

Call  autofillC'Ml  1",  "=L1 1/$V$5")  'K  value  calculation 

Call  autofillC'Nl  1",  "=ABS(A1 1-Cl  1)")  'VIDYA  MAD 

Call  autofillC'Ol  1",  "=(N1 1)^2")  'VIDYA  MSE 

Call  autofillC'Rl  1",  "=SUM(P3:P1 1)")  'Su  Mtm  Up 

Call  autofillC'Sl  1",  "=SUM(Q3:Q1 1)")  'Su  Mtm  Up 

Call  autofillC’Tl  1",  "=ABS((R1 1-Sl  1)/(R1 1+Sl  1))") '  ABS  CMO 

Range("V5").Select 

ActiveCell.formula  =  "=AVERAGE($L$1 1:$L$28)"  'VIDYA  Constant  of  Ave  Std 
Dev 
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Elself  Momentum  =  8  Then 
Range("Cll").Select 
ActiveCell.formula  =  ' -A1 1 " 

Call  autofill("C12",  ''=($V$3*M12)*A12+(1-$V$3*M12)*A1 1")  'VIDYA  forecast 
Call  autofill("D12",  "=100*(R12-S12)/ABS(R12+S12)")  'CMO  Indicater  Equation 
Range("H2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$12), 2)"  'Y  intercept 
Range("I2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$  12),  1)"  'slope  of  line 

Call  autofill(’'L12",  "=STDEV(A3:A12)")  '10  MO  STD  DEV 

Call  autofill("M12",  "=L12/$V$5")  'K  value  calculation 

Call  autofill("N12",  "=ABS(A12-C12)")  'VIDYA  MAD 

Call  autofill("012",  "=(N  12)^2")  'VIDYA  MSE 

Call  autofill("R12",  "=SUM(P3:P12)")  'Su  Mtm  Up 

Call  autofill("S12",  "=SUM(Q3:Q12)")  'Su  Mtm  Up 

Call  autofill("T12",  "=ABS((R12-S12)/(R12+S12))") '  ABS  CMO 

Range("V5").Select 

ActiveCell.formula  =  "=AVERAGE($L$12:$L$31)"  'VIDYA  Constant  of  Ave  Std 
Dev 


Elself  Momentum  =  9  Then 
Range("C12").Select 
ActiveCell.formula  =  "=A12" 

Call  autofill("C13",  "=($V$3*M13)*A13+(1-$V$3*M13)*A12")  'VIDYA  forecast 
Call  autofill("D13",  "=100*(R13-S13)/ABS(R13+S13)")  'CMO  Indicater  Equation 
Range("H2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$13),2)"  'Y  intercept 
Range("I2").  Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$13),l)"  'slope  of  line 

Call  autofill("L13",  "=STDEV(A3:A13)")  '1 1  MO  STD  DEV 

Call  autofill("M13",  "=L13/$V$5")  'K  value  calculation 

Call  autofill("N13",  "=ABS(A13-C13)")  'VIDYA  MAD 

Call  autofill("013",  "=(N13)'^2")  'VIDYA  MSE 

Call  autofilI("R13",  "=SUM(P3:P13)")  'Su  Mtm  Up 

Call  autofill("S13",  "=SUM(Q3:Q13)")  'Su  Mtm  Up 

Call  autofill("T13",  "=ABS((R13-S13)/(R13+S13))")  '  ABS  CMO 

Range("V5").Select 

ActiveCell.formula  =  "=AVERAGE($L$13:$L$34)"  'VIDYA  Constant  of  Ave  Std 
Dev 


Elself  Momentum  =10  Then 
Range("C13").Select 
ActiveCell.formula  =  "=A13" 

Call  autofill("C14",  "=($V$3*M14)*A14+(1-$V$3*M14)*A13")  'VIDYA  forecast 
Call  autofill("D14",  "=100*(R14-S14)/ABS(R14+S14)")  'CMO  Indicater  Equation 
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Range("H2").Select 

ActiveCell. formula  =  ' -index(linest($A$3:$A$14),2)"  'Y  intercept 
Range("I2").Select 

ActiveCell. formula  =  "=index(linest($A$3:$A$14),l)"  'slope  of  line 

Call  autofill("L14",  "=STDEV(A3:A14)")  '12  MO  STD  DEV 

Call  autofill("M14",  "=L14/$V$5")  'K  value  calculation 

Call  autofill("N14",  "=ABS(A14-C14)")  'VIDYA  MAD 

Call  autofill("014",  "=(N14)^2")  'VIDYA  MSE 

Call  autofill("R14",  "=SUM(P3:P14)")  'Su  Mtm  Up 

Call  autofill("S14",  "=SUM(Q3:Q14)")  'Su  Mtm  Up 

Call  autofill("T14",  "=ABS((R14-S14)/(R14+S14))") '  ABS  CMO 

Range("V5").Select 

ActiveCell.formula  =  ’'=AVERAGE($L$14:$L$37)"  'VIDYA  Constant  of  Ave  Std 

Dev 


Elself  Momentum  =  1 1  Then 
Range("C14").Select 
ActiveCell.formula  =  ’'=A14" 

Call  autofill("C15",  "=($V$3*M15)*A15+(1-$V$3*M15)*A14")  'VIDYA  forecast 
Call  autofill("D15",  "=100*(R15-S15)/ABS(R15+S15)")  'CMO  Indicater  Equation 
Range("H2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$15),2)"  'Y  intercept 
Range("I2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$15),l)"  'slope  of  line 

Call  autofill("L15",  "=STDEV(A3:A15)")  '13  MO  STD  DEV 

Call  autofill("M15",  "=L15/$V$5")  'K  value  calculation 

Call  autofill("N15",  "=ABS(A15-C15)")  'VIDYA  MAD 

Call  autofill("015",  "=(N15r2")  'VIDYA  MSE 

Call  autofill("R15",  "=SUM(P3:P15)")  'Su  Mtm  Up 

Call  autofill("S15",  "=SUM(Q3:Q15)")  'Su  Mtm  Up 

Call  autofill("T15",  "=ABS((R15-S15)/(R15+S15))") '  ABS  CMO 

Range("V5").Select 

ActiveCell.formula  =  "=AVERAGE($L$15:$L$40)"  'VIDYA  Constant  of  Ave  Std 

Dev 


Elself  Momentum  =  12  Then 
Range("C15").Select 
ActiveCell.formula  =  "=A15" 

Call  autofill("C16",  "=($V$3*M16)*A16+(1-$V$3*M16)*A15")  'VIDYA  forecast 
Call  autofiIl("D16",  "=100*(R16-S16)/ABS(R16+S16)")  'CMO  Indicater  Equation 
Range("H2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$16),2)"  'Y  intercept 
Range("I2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$16),l)"  'slope  of  line 
Call  autofill("L16",  "=STDEV(A3:A16)")  '14  MO  STD  DEV 
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Call  autofill("M16",  "=L16/$V$5")  'K  value  calculation 

Call  autofill("N16",  "=ABS(A16-C16)")  'VIDYA  MAD 

Call  autofill("016",  "=(N16)^2")  'VIDYA  MSB 

Call  autofill("R16",  "=SUM(P3:P16)")  'Su  Mtm  Up 

Call  autofill("S16",  "=SUM(Q3:Q16)")  'Su  Mtm  Up 

Call  autofill("T16",  "=ABS((R16-S16)/(R16+S16))") '  ABS  CMO 

Range("V5").Select 

ActiveCell.formula  =  "-AVERAGE($L$16:$L$43)"  'VIDYA  Constant  of  Ave  Std 

Dev 


Elself  Momentum  =13  Then 
Range("C16").Select 
ActiveCell.formula  =  "=A16" 

Call  autofill("C17",  "=($V$3*M17)*A17+(1-$V$3*M17)*A16")  'VIDYA  forecast 
Call  autofill("D17",  "=100*(R17-S17)/ABS(R17+S17)")  'CMO  Indicater  Equation 
Range("H2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$17),2)"  'Y  intercept 
Range("I2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$17),l)"  'slope  of  line 

Call  autofill("L17",  "=STDEV(A3:A17)")  '15  MO  STD  DEV 

Call  autofill("M17",  "=L17/$V$5")  'Rvalue  calculation 

Call  autofill("N17",  "=ABS(A17-C17)")  'VIDYA  MAD 

Call  autofill("017",  "=(N  17)^2")  'VIDYA  MSE 

Call  autofdl("R17",  "=SUM(P3:P17)")  'Su  Mtm  Up 

Call  autofill("S17",  "=SUM(Q3:Q17)")  'Su  Mtm  Up 

Call  autofill("T17",  "=ABS((R17-S17)/(R17+S17))") '  ABS  CMO 

Range("V5").Select 

ActiveCell.formula  =  "=AVERAGE($L$17:$L$46)"  'VIDYA  Constant  of  Ave  Std 

Dev 


Elself  Momentum  =  14  Then 
Range("C17").Select 
ActiveCell.formula  =  "=A17" 

Call  autofill("C18",  "=($V$3*M18)*A18+(1-$V$3*M18)*A17")  'VIDYA  forecast 
Call  autofill("D18",  "=100*(R18-S18)/ABS(R18+S18)")  'CMO  Indicater  Equation 
Range(’'H2").Select 

ActiveCell.formula  =  "=index(linest($A$3;$A$18),2)"  'Y  intercept 
Range("I2").  Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$18),l)"  'slope  of  line 

Call  autofill("L18",  "=STDEV(A3:A18)")  '16  MO  STD  DEV 

Call  autofill(''M18",  "=L18/$V$5")  'K  value  calculation 

Call  autofill("N18",  "=ABS(A18-C18)")  'VIDYA  MAD 

Call  autofill("018",  "=(N18r2")  'VIDYA  MSE 

Call  autofdl("R18",  "=SUM(P3:P18)")  'Su  Mtm  Up 

Call  autofill("S18",  "=SUM(Q3:Q18)’')  'Su  Mtm  Up 
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Call  autofill("T18",  "=ABS((R18-S18)/(R18+S18))") '  ABS  CMO 
Range("V5").Select 

ActiveCell.formula  =  "=AVERAGE($L$18:$L$49)"  'VIDYA  Constant  of  Ave  Std 


Dev 


Elself  Momentum  =15  Then 
Range('’C18'').Select 
ActiveCell.formula  =  "=A18" 

Call  autofill("C19",  "=($V$3*M19)*A19+(1-$V$3*M19)*A18")  'VIDYA  forecast 
Call  autofill("D19",  "=100*(R19-S19)/ABS(R19+S19)")  'CMO  Indicater  Equation 
Range("H2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$19),2)"  'Y  intercept 
Range("I2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$19),l)"  'slope  of  line 

Call  autofill("L19",  "=STDEV(A3:A19)")  '17  MO  STD  DEV 

Call  autofill("M19",  "=L19/$V$5")  'K  value  calculation 

Call  autofill("N19",  "=ABS(A19-C19)")  'VIDYA  MAD 

Call  autofill("019",  "=(N19)^2")  'VIDYA  MSE 

Call  autofill("R19",  "=SUM(P3:P19)")  'Su  Mtm  Up 

Call  autofill("S19",  "=SUM(Q3:Q19)")  'Su  Mtm  Up 

Call  autofill("T19",  "=ABS((R19-S19)/(R19+S19))") '  ABS  CMO 

Range("V5").Select 

ActiveCell.formula  =  "=AVERAGE($L$19:$L$52)"  'VIDYA  Constant  of  Ave  Std 

Dev 


Else 

Momentum  =16 
Range("C19").Select 
ActiveCell.formula  =  "=A19" 

Call  autofill("C20",  "=($V$3*M20)*A20+(1-$V$3*M20)*A19")  'VIDYA  forecast 
Call  autofill("D20",  "=100*(R20-S20)/ABS(R20+S20)")  'CMO  Indicater  Equation 
Range("H2").Select 

ActiveCell.formula  =  "=index(linest($A$3;$A$20),2)"  'Y  intercept 
Range("I2").Select 

ActiveCell.formula  =  "=index(linest($A$3:$A$20),l)"  'slope  of  line 

Call  autofilI("L20",  "=STDEV(A3:A20)")  '18  MO  STD  DEV 

Call  autofill("M20",  "=L20/$V$5")  'K  value  calculation 

Call  autofill("N20",  "=ABS(A20-C20)")  'VIDYA  MAD 

Call  autofilI("O20",  "=(N20)^2")  'VIDYA  MSE 

Call  autofill("R20",  "=SUM(P3:P20)")  'Su  Mtm  Up 

Call  autofill("S20",  "=SUM(Q3:Q20)")  'Su  Mtm  Up 

Call  autofill("T20",  "=ABS((R20-S20)/(R20+S20))") '  ABS  CMO 

Range("V5").Select 

ActiveCell.formula  =  "=AVERAGE($L$20:$L$55)"  'VIDYA  Constant  of  Ave  Std 
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'  End  If 

Range("A2:Y1000").Select 
With  Selection 

.HorizontalAlignment  =  xlCenter 
•VerticalAlignment  =  xlBottom 
-WrapText  =  False 
.Orientation  =  xlHorizontal 
End  With 

Selection.NumberFomiat  =  "0.0000" 
Selection.EntireColumn.  AutoFit 
End  Sub 

’  SOLVE_DES_MAD  Macro 

'  Solves  for  the  optimal  alpha  and  beta  values  for  DES  MAD 


Sub  SOLVE_DES_MAD() 

Sheets("Evaluation  Sheet").Select 

Range("v3").Select 

i=  1 

sheet  =  "Evaluation  Sheet" 
minsse  =  Worksheets(sheet).Cells(2,  10) 
alpha  =  Worksheets(sheet).Cells(3,  22) 
beta  =  Worksheets(sheet).Cells(4,  22) 

While  Worksheets(sheet).Cells(3, 22)  >=  0.05 
While  Worksheets(sheet).Cells(4,  22)  >=  0.05 
If  Worksheets(sheet).Cells(2,  10)  <  minsse  Then 
minsse  =  Worksheets(sheet).Cells(2,  10) 
alpha  =  Worksheets(sheet).Cells(3,  22) 
beta  =  Worksheets(sheet).Cells(4,  22) 

End  If 

'  Worksheets("Sheet3").Cells(i,  1)  =  Worksheets(sheet).Cells(3, 22) 
'  Worksheets("Sheet3").Cells(i,  2)  =  Worksheets(sheet).Cells(4,  22) 
'Worksheets("Sheet3").Cells(i,  3)  =  Worksheets(sheet).Cells(2, 10) 
'  i  =  i  +  1 

Worksheets(sheet).Cells(4,  22)  =  _ 

Worksheets(sheet).Cells(4, 22)  -  0.05 
Wend 

Worksheets(sheet).Cells(4,  22)  =  0.5 
Worksheets(sheet).Cells(3,  22)  =  _ 

Worksheets(sheet).Cells(3,  22)  -  0.05 
Wend 

Worksheets(sheet).Cells(3,  22)  =  alpha 
Worksheets(sheet).Cells(4,  22)  =  beta 
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Sheets("Sheet2"). Select 

Sheets("Sheet2").Name  =  "Comparison  Table" 

Range("A2").  Select 

ActiveCell.  Value  =  1 

Range("A3").  Select 

ActiveCell.Value  =  2 

Range("A4").Select 

ActiveCell.Value  =  3 

Range("A5").Select 

ActiveCell.Value  =  4 

Range("A6").Select 

ActiveCell.Value  =  5 

Range("A7").  Select 

ActiveCell.Value  =  6 

Range("Cl").Select 

ActiveCell.formula  =  "Error" 

Sheets("Evaluation  Sheet"). Select 

Range("F2").Select 

Selection.Copy 

Sheets("Comparison  Table").  Select 
Range("C2").Select 

Selection.PasteSpecial  Paste:=xlValues,  Operation:=xlNone, 
SkipBlanks:=False,  Transpose:=False 
Selection.NumberFormat  =  "0.0000" 

Range("B2").Select 
ActiveCell.formula  =  "Naive  MAD" 

Sheets("Evaluation  Sheet").Select 

Range("G2").Select 

Selection.Copy 

Sheets("Comparison  Table").Select 
Range("C3"). Select 

Selection.PasteSpecial  Paste:=xl Values,  Operation:=xlNone, 
SkipBlanks:=False,  Transpose:=False 
Selection.NumberFormat  =  "0.0000" 

Range("B3").Select 
ActiveCell.formula  =  "Naive  MSE" 

Sheets("Evaluation  Sheet").Select 

Range("J2").Select 

Selection.Copy 

Sheets("Comparison  Table").Select 
Range("C4").Select 

Selection.PasteSpecial  Paste:=xlValues,  Operation:=xlNone, 
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'  SkipBlanks:=False,  Transpose:=False 
Selection.NumberFormat  =  "0.0000" 

Raiige("B4").SeIect 
ActiveCell.formula  =  "DBS  MAD" 

Sheets("Evaluation  Sheet").SeIect 
Range("V3").Select 
Selection.  Copy 

Sheets("Comparison  Table").Select 
Range("D4").Select 

Selection.PasteSpecial  Paste :=xl Values,  Operation:=xlNone,  _ 

SkipBlanks:=False,  Transpose:=False 
Selection.NumberFormat  =  "0.0000" 

Range("Dl").Select 
ActiveCell.formula  =  "ALPHA" 

Sheets("Evaluation  Sheet").Select 
Range("V4").Select 
Selection.  Copy 

Sheets("Comparison  Table").Select 
Range("E4").Select 

Selection.PasteSpecial  Paste:=xlValues,  Operation~xlNone,  _ 

SkipBlanks:=False,  Transpose:=False 
Selection.NumberFormat  =  "0.0000" 

Range("El").Select 
ActiveCell.formula  =  "BETA" 

Sheets("Evaluation  Sheet"). Select 
Range("V3").Select 

ActiveCell.formula  =  "=.5"  'Start  value  for  Alpha 
Range("V4").Select 

ActiveCell.formula  =  "=.5"  'Start  value  for  Beta 
End  Sub 

'  SOLVE_DES_MSE  Macro 

'  Solves  for  the  optimal  alpha  and  beta  values  for  DES  MSE  by  minimizing  the  overall 
MSE 


Sub  SOLVE_DES_MSE() 
Sheets("Evaluation  Sheet"). Select 
sheet  =  "Evaluation  Sheet" 
minsse  =  Worksheets(sheet).Cells(2,  1 1) 
alpha  =  Worksheets(sheet).Cells(3,  22) 
beta  =  Worksheets(sheet).Cells(4, 22) 
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While  Worksheets(sheet).Cells(3,  22)  >=  0.05 
While  Worksheets(sheet).CeIls(4,  22)  >=  0.05 
If  Worksheets(sheet).Cells(2,  1 1)  <  minsse  Then 
minsse  =  Worksheets(sheet).Cells(2, 1 1) 
alpha  =  Worksheets(sheet).Cells(3, 22) 
beta  =  Worksheets(sheet).Cells(4,  22) 

End  If 

Worksheets(sheet).Cells(4, 22)  =  _ 
Worksheets(sheet).Cells(4, 22)  -  0.05 
Wend 

Worksheets(sheet).Cells(4,  22)  =  0.5 
Worksheets(sheet).Cells(3, 22)  =  _ 
Worksheets(sheet).CelIs(3,  22)  -  0.05 
Wend 

Worksheets(sheet).CelIs(3,  22)  =  alpha 
Worksheets(sheet).Cells(4, 22)  =  beta 

Sheets("Evaluation  Sheet"). Select 
Range("K2").Select 
Selection.  Copy 

Sheets("Comparison  Table").Select 
Range("C5 ").  Select 

Selection.PasteSpecial  Paste:=xlValues,  Operation:=xlNone, 
SkipBlanks:=False,  Transpose:=False 
Selection.NumberFormat  =  "0.0000" 

Range("B5").Select 
ActiveCell.formula  =  "DES  MSE" 

Sheets("Evaluation  Sheet").  Select 
Range("V3").Select 
Selection.  Copy 

Sheets("Comparison  Table").Select 
Range("D5").Select 

Selection.PasteSpecial  Paste:=xlVaIues,  Operation:=xlNone, 
SkipBlanks:=False,  Transpose:=False 
Selection.NumberFormat  =  "0.0000" 

Sheets("Evaluation  Sheet").  Select 

Range("V4").Select 

Selection.Copy 

Sheets("Comparison  Table").Select 
Range("E5").Select 

Selection.PasteSpecial  Paste :=xl Values,  Operation:=xlNone, 
SkipBlanks;=False,  Transpose:=False 
Selection.NumberFormat  =  "0.0000" 
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SheetsC'Evaluation  Sheet").Select 
Range("V3").SeIect 

ActiveCell.formula  =  "=.5"  'Start  value  for  Alpha 
Range("V4").  Select 

ActiveCell.formula  =  "=.5"  'Start  value  for  Beta 
End  Sub 

'  SOLVE_VIDYA_MAD  Macro 
'  Solves  for  the  optimal  alpha  value  for  VIDYA  MAD 

f 

Sub  SOLVE_VIDYA_MAD() 

SheetsC'Evaluation  Sheet").Select 
sheet  =  "Evaluation  Sheet" 
minsse  =  Worksheets(sheet).Cells(2, 14) 
alpha  -  Worksheets(sheet).Cells(3, 22) 

While  Worksheets(sheet).Cells(3,  22)  >=  0.05 
If  Worksheets(sheet).Cells(2,  14)  <  minsse  Then 
minsse  =  Worksheets(sheet).Cells(2,  14) 
alpha  =  Worksheets(sheet).Cells(3,  22) 

End  If 

Worksheets(sheet).Cells(3,  22)  =  _ 
Worksheets(sheet).Cells(3,  22)  -  0.01 
Wend 

Worksheets(sheet).Cells(3,  22)  =  alpha 

SheetsC'Evaluation  Sheet").Select 
Range("N2").Select 
Selection.  Copy 

Sheets("Comparison  Table").Select 
Range("C6").Select 

Selection.PasteSpecial  Paste :=xl Values,  Operation:=xlNone, 
SkipBlanks:=False,  Transpose:=False 
Selection.NumberFormat  =  "0.0000" 

Range("B6").Select 
ActiveCell.formula  =  "VIDYA  MAD" 

SheetsC'Evaluation  Sheet"). Select 
Range("V3").Select 
Selection.  Copy 

Sheets("Comparison  Table").Select 
Range("D6").Select 

Selection.PasteSpecial  Paste :=xl Values,  Operation:=xINone, 
SkipBlanks;=False,  Transpose:=False 
Selection.NumberFormat  =  "0.0000" 
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Range("E6").  Select 
ActiveCell.formula  =  "N/A" 

Sheets("Evaluation  Sheet" ).  Select 
Range("V3").Select 

ActiveCell.formula  =  "=.5"  'Start  value  for  Alpha 
Range("V4").Select 

ActiveCell.formula  =  "=.5"  'Start  value  for  Beta 
End  Sub 

'  SOLVE_VIDYA_MSE  Macro 

'  Solves  for  the  optimal  alpha  and  beta  values  for  VIDYA  MSE 

I 

Sub  SOLVE_VIDYA_MSE() 

Sheets("Evaluation  Sheet").  Select 
Sheets("Evaluation  Sheet"). Select 
sheet  =  "Evaluation  Sheet" 
minsse  =  Worksheets(sheet).Cells(2,  15) 
alpha  =  Worksheets(sheet).Cells(3,  22) 

While  Worksheets(sheet).Cells(3, 22)  >=  0.05 
If  Worksheets(sheet).Cells(2,  15)  <  minsse  Then 
minsse  =  Worksheets(sheet).Cells(2,  15) 
alpha  =  Worksheets(sheet).Cells(3, 22) 

End  If 

Worksheets(sheet).Cells(3,  22)  =  _ 
Worksheets(sheet).Cells(3,  22)  -  0.01 
Wend 

Worksheets(sheet).Cells(3, 22)  =  alpha 

Sheets("Evaluation  Sheet").Select 

Range("02").Select 

Selection.Copy 

Sheets("Comparison  T  able").  Select 
Range("C7").Select 

Selection.PasteSpecial  Paste:=xlValues,  Operation:=xlNone, 
SkipBlanks:=False,  Transpose:=False 
Selection.NumberFormat  =  "0.0000" 

Range("B7").Select 
ActiveCell.formula  =  "VIDYA  MSE" 

Sheets("Evaluation  Sheet").Select 

Range("V3").SeIect 

Selection.Copy 

Sheets("Comparison  Table").Select 


B-19 


'■  Range("D7").Select 

Selection.PasteSpecial  Paste:=xlValues,  Operation:=xlNone,  _ 
SkipBlanks~False,  Transpose:=False 
Selection.NumberFormat  =  "0.0000" 

Range("E7").Select 
ActiveCell.foraiula  =  "N/A" 

Range("Al:E7").Select 
Selection.EntireColumn.  AutoF  it 

Sheets("Evaluation  Sheet").  Select 
Range("V3").SeIect 

ActiveCell.formula  =  "=.5"  'Start  value  for  Alpha 
Range("V4").Select 

ActiveCell.formula  =  "=.5"  'Start  value  for  Beta 
End  Sub 
Sub  Sort() 

Sheets("  Comparison  Table").Select 
Range("Al:E7").Select 
Selection.  Sort  _ 

Keyl:=Range("C2"),  Order l;=xl Ascending,  _ 
Key2:=Range("D2"),  Order2:=xl Ascending,  _ 
Key3:=Range("E2"),  Order3:=xlAscending,  _ 

Header:=xlYes,  OrderCustom:=l,  MatchCase;=False,  Orientation: 
xITopToBottom 
End  Sub 

Sub  SelectXestQ 

Sheets("Evaluation  Sheet"). Cells(3,  22).Value  _ 

=  Sheets("Comparison  Table").Cells(2,  4).Value 
Sheets("Evaluation  Sheet"). Cells(4,  22).Value  _ 

=  Sheets("Comparison  Table").Cells(2,  5).Value 
Sheets("Evaluation  Sheet"). Select  'selection  for  the  price  values 
i  =  3 

Do  Until  Cells(i,  1). Value  =  "" 
i  =  i+  1 
Loop 

Range(Cells(i  -  Months,  1),  Cells(i  -  1,  1)). Select 

Selection.Copy 

Sheets("Sheet3").Select 

Cells(2,  2). Select 

Selection.PasteSpecial  Paste:=xlValues,  Operation:=xlNone,  _ 
SkipBlanks:=False,  Transpose:=False 
Selection.NumberFormat  =  "$#,##0.00" 
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■  Range("Bl").Select 
ActiveCell.FormulaRlCl  =  "Price" 

Range("Al").Select 
ActiveCell.FormulaRlCl  =  "CMC" 

Sheets("Evaluation  Sheet").Select  'selection  for  CMO  values 
i  =  Momentum  +  4 
Do  Until  Cells(i,  4).Value  = "" 
i  =  i+  1 
Loop 

Range(Cells(i  -  Months,  4),  Cells(i  - 1, 4)).Select 
Selection.  Copy 
Sheets("Sheet3").Select 
Cells(2,  1).  Select 

Selection.PasteSpecial  Paste :=xl Values,  Operation:=xlNone,  _ 
SkipBlanks:=False,  Transpose:=False 
Selection.NumberFormat  =  "0.0000" 

Sheets("Comparison  Table").Select 
If  Cells(2, 1). Value  <=  2  Then 
Msg  =  "Naive  Forecast  has  minimum  error!" 
dialogstyle  =  vbOK  +  vbCritical 
Title  =  "Forecast  Instability  Error" 
response  =  MsgBox(Msg,  dialogstyle.  Title) 

If  response  =  vbOK  Then 
GoTo  Endit 
End  If 

MsgBox  Msg 

Endit: 

Elself  Cells(2,  l).Value  <=  4  Then 

Sheets("Evaluation  Sheet").Select  'selection  for  the  DES  values 
i  =  3 

Do  Until  Cells(i,  2).Value  = "" indicates  find  null  space 
i  =  i  +  1 
Loop 

Range(Cells(i  -  Months,  2),  Cells(i  -  1,  2)). Select 

Selection.Copy 

Sheets("  Sheet3 ").  Select 

Cells(2,  3). Select 

Selection.PasteSpecial  Paste :=xl Values,  Operation;=xlNone,  _ 
SkipBlanks:=False,  Transpose:=False 
Selection.NumberFormat  =  "$#,##0.00" 

Range("Cl").Select 
ActiveCell.FormulaRlCl  =  "DES" 
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Else 

Sheets("Evaluation  Sheet").  Select  'selection  for  VIDYA  values 
i  =  Momentum  +  4 
Do  Until  Cells(i,  3). Value  =  "" 
i  =  i+  1 
Loop 

Range(Cells(i  -  Months,  3),  Cells(i  -  1,  3)). Select 

Selection.Copy 

Sheets("Sheet3  ").Select 

Cells(2,  3).Select 

Selection.PasteSpecial  Paste :=xlValues,  Operation:=xlNone,  _ 
SkipBlanks:=False,  Transpose:=False 
Selection.NumberFormat  =  "$#,##0.00" 

Range("Cl").Select 
ActiveCell.FormulaRlCl  =  "VIDYA" 

End  If 

Sheets("Sheet3").Select 

Range(Cells(I,  I),  CeIIs(Months  +  1,  3)).SeIect 

Charts.Add 

If  Months  =  3  Then 

ActiveChart.ChartWizard  Source:=Sheets("Sheet3").Range("AI:C4"), 
Gallery:=xlCombination,  Format:=2,  PlotBy:=_ 
xlColumns,  CategoryLabels:=0,  SeriesLabeIs~l,  HasLegend:=l,  _ 
Title—"",  CategoryTitle:="Months",  ValueTitle —"Momentum",  _ 
ExtraTitle— "Price" 

Elself  Months  =  6  Then 

ActiveChart.ChartWizard  Source— Sheets("Sheet3").Range(" A  1:C7"), 
Gallery :=xlCombination,  Format:=2,  PlotBy—  _ 
xlColumns,  CategoryLabels— 0,  SeriesLabels— 1,  HasLegend— 1,  _ 
Title:="",  CategoryTitle— "Months",  ValueTitle— "Momentum",  _ 
ExtraTitle:="Price" 

Elself  Months  =  9  Then 

ActiveChart.ChartWizard  Source— Sheets("Sheet3").Range("Al:C  10"), 
Gallery:=xlCombination,  Format:=2,  PlotBy—  _ 
xlColumns,  CategoryLabels— 0,  SeriesLabels— 1,  HasLegend— 1,  _ 
Title—"",  CategoryTitle— "Months",  ValueTitle— "Momentum",  _ 
ExtraTitle— "Price" 

Elself  Months  =  12  Then 

ActiveChart.ChartWizard  Source— Sheets("Sheet3").Range("Al:C13"), 
Gallery  :=xlCombination,  Format— 2,  PlotBy— _ 
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xlColumns,  CategoryLabels:=0,  SeriesLabels:=l,  HasLegend:=l,  _ 
Title:="",  CategoryTitle:="Months",  ValueTitle “"Momentum",  _ 
ExtraTitle:="Price" 

Elself  Months  =  15  Then 

ActiveChart-ChartWizard  Source:=Sheets(" Sheets  ").Range(" A 1  :C16"), 
Gallery:=xlCombination,  Format:=2,  PlotBy:=_ 
xlColumns,  CategoryLabels:=0,  SeriesLabels:=l,  HasLegend“l,  _ 
Title—"",  CategoryTitle:="Months",  ValueTitle:="Momentum",  _ 
ExtraTitle:="Price" 

Elself  Months  =18  Then 

ActiveChart-ChartWizard  Source:=Sheets("Sheet3").Range("Al  :C19"), 
Gallery :=xlCombination,  Format:=2,  PlotBy:=_ 
xlColumns,  CategoryLabels:=0,  SeriesLabels:=l,  HasLegend:=l,  _ 
Title—"",  CategoryTitle— "Months",  ValueTitle— "Momentum",  _ 
ExtraTitle:="Price" 

Elself  Months  =  21  Then 

ActiveChart-ChartWizard  Source:=Sheets("Sheet3")-Range("Al  ;C22"), 
Gallery :=xlCombination,  Format:=2,  PlotBy:=_ 
xlColumns,  CategoryLabels:=0,  SeriesLabels— 1,  ElasLegend— 1,  _ 
Title—"",  CategoryTitle— "Months",  ValueTitle;="Momentum",  _ 
ExtraTitle— "Price" 

Elself  Months  =  24  Then 

ActiveChart-ChartWizard  Source— Sheets("Sheet3")-Range("Al:C25"), 
Gallery— xlCombination,  Format— 2,  PlotBy—  _ 
xlColumns,  CategoryLabels— 0,  SeriesLabels:=l,  HasLegend:=l,  _ 
Title:="",  CategoryTitle— "Months",  ValueTitle:="Momentum",  _ 
ExtraTitle— "Price" 

End  If 

ActiveChart-SeriesCollection(2)-Select 

ActiveChart-SeriesCollection(2)-AxisGroup  =  2 

ActiveChart-ChartGroups(2)-Type  =  xlLine 

ActiveChart-Axes(xIValue)-Select 

With  ActiveChart-Axes(xl  Value) 

-MinimumScale  =  -100 
-MaximumScale  =100 
-MinorUnit  =  5 
-MajorUnit  =10 
-Crosses  =  xlAutomatic 
-ReversePlotOrder  =  False 
-ScaleType  =  False 
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End  With 

Acti  veChart.  Axes(xl  V  alue)  .Select 
Selection.TickLabels.NumberFormat  =  "0" 
With  Acti veChart.Axes(xl Value,  xlSecondary) 
•MinimumScale  =  0 
■MajorUnit  =  0.02 
End  With 

Acti  veChart.  Axes(xlCategory)  .Select 
ActiveChart.  S  eriesCollection(  1 ).  S  elect 
With  Selection.  Border 
.Weight  =  xlThin 
.LineStyle  =  xlAutomatic 
End  With 

Selection.InvertIfNegative  =  False 
With  Selection.Interior 
.Colorindex  =  24 
.Pattern  =  xlSolid 
End  With 

ActiveChart.  S  eriesCollection(2).  S  elect 
With  Selection.Border 
.Colorindex  =  5 
.Weight  =  xlThin 
.LineStyle  =  xlContinuous 
End  With 
With  Selection 

.MarkerBackgroundColorIndex  =  5 
.MarkerForegroundColorIndex  =  5 
.MarkerStyle  =  xlTriangle 
.Smooth  =  False 
End  With 

ActiveChart.  SeriesCollection(3).Select 
With  Selection.Border 
.Colorindex  =  5 
.Weight  =  xlThin 
.LineStyle  =  xlContinuous 
End  With 
With  Selection 

.MarkerBackgroundColorIndex  =  5 
.MarkerForegroundColorIndex  =  5 
.MarkerStyle  =  xlTriangle 
.Smooth  =  False 
End  With 

ActiveChart.  SeriesCollection(2).  Select 
With  Selection.Border 
.Colorindex  =  7 
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’■  .Weight  =  xlThin 

•LineStyle  =  xlContinuous 
End  With 
With  Selection 

•MarkerBackgroundColorlndex  -  7 
•MarkerForegroundColorlndex  =  7 
.MarkerStyle  =  xlTriangle 
•Smooth  =  False 
End  With 

ActiveChart.PlotArea.  Select 
With  Selection.Border 
.Colorindex  =  16 
•Weight  =  xlThin 
•LineStyle  =  xlContinuous 
End  With 

Selection.Interior.Colorlndex  =  xlNone 
ActiveChart.Deselect 
End  Sub 

Sub  SelectspaceQ 

Sheets("Evaluation  Sheet"). Select 
Range("Al "). Select 
SheetsC'Comparison  Table").Select 
Range("Al  :A7").Select 
Selection.Delete  Shift;=xlToLeft 
Range("Al:D7").Select 
Selection.EntireColumn.AutoFit 
Range("Ar').Select 
Sheets("Sheet3  ").Select 
Range("Al").Select 
Sheets("Chartl").Select 
End  Sub 
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